#!/Perl/bin/Perl5.6.1 print "Content-type: text/html\n\n"; $person= ; chomp($person); $type = "Hacker"; if($person =~ /sex=(\w*)&*/) { $type = $1; } if($type eq "Boy") { print <Boys

Boys

Frogs and snails and puppy dogs tails,
That's what little boys are made of. BOYS } elsif($type eq "Girl") { print <Girls

Girls

Sugar and spice and all things nice
That's what little girls are made of. GIRLS } elsif($type eq "Unsure") { print <Others

Others

You should visit the student counseling services. OTHERS } else { print <Evil

Evil hacker!

Go away and trouble someone else HACKER }