sub getAnswer {
  my $ans;

  $ans = <STDIN>;
  chomp($ans);
  return $ans;
}