print "What is your name?\n";

chomp($name = <>);
print "Thank you $name. What is your age?"\n;
chomp($age = <>);
if ($age <= 18) {
	print "Are you a boy or girl?\n";
	print "Type M or F.\n";}
elsif ($age > 18) {
	print "Are you a man or woman?\n";
	print "Type M or F.\n";}
chomp($char = <>);
if ($char == m || $char == M){
	$gender = male;}
elsif ($char == f || $char == F){
	$gender = female;}
print "\n\n\n";

print "Name: $name\n";
print "Age: $age\n";
print "Gender: $gender\n\n";
<>