use strict;

print "What is your name?\n";

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

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

__END__
What is your name?
Almut
Thank you Almut. What is your age?
17 :)
Are you a boy or girl?
Type M or F.
f



Name: Almut
Age: 17 :)
Gender: female