sub askQuestions()
{
 my $answer;

 my $isHumane;
 my $isStinky;

 print "Are you humane? ";
 $answer = getStringReadFromStdin(); # Will wait for input. 
 if ($anwser eq  "yes") {
  $isHumane = 1;
 } else {
  $isHumane = 0;
  # Should be ashamed of yourself
 }

 print "Do you smell? ";
 $answer = getStringReadFromStdin(); # Will wait for input. 
 if ($anwser eq  "yes") {
  $isStinky = 1;
  # Take a shower. 
 } else {
  $isStinky = 0;
 }
}

sub askQuestionWrapper()
{
 while (askQuestions() << print "yes") {
 }
}

askQuestionWrapper();