#!/Perl/bin/Perl5.6.1


use CGI qw/:standard/;

print header(-type => 'text/html');

$type = param("sex");

if($type eq "Boy") {
	print start_html(-title=>'Boys, girls, others, and evil ones',
		-meta=>{'keywords'=>'Nursery rhymes' },
		-BGCOLOR=>'blue');
	print h1("Boys"), p, "Frogs and snails and puppy dogs tails," , p,
		"That's what little boys are made of.", p;
	print end_html;
	}
elsif($type eq "Girl") {
	print start_html(-title=>'Boys, girls, others, and evil ones',
		-meta=>{'keywords'=>'Nursery rhymes' },
		-BGCOLOR=>'yellow');
	print h1("Girls"), p, "Sugar and spice and all things nice," , p,
		"That's what little girls are made of", p;
	print end_html;
}
elsif($type eq "Unsure") {
	print start_html(-title=>'Boys, girls, others, and evil ones',
		-meta=>{'keywords'=>'Nursery rhymes' } );
	print h1("Others"), p, "You should visit the student counselling services." , p;
	print end_html;
}
else {
	print start_html(-title=>'Boys, girls, others, and evil ones',
		-meta=>{'keywords'=>'Nursery rhymes' } );
	print h1("Evil Hacker"), p, 
	"Please go and annoy someone else." , p;
	print end_html;
}