my $answer = <STDIN>;