sub ask_question {
   my $question = shift;
   print $question;
   chomp(my $answer = lc <STDIN>);
   return $answer;
}

sub ask_for_name {
   my $question = shift;
   return lc ask_question($question);
}