$answer = <STDIN>;
  chomp $answer;