chomp(my $answer=<STDIN>);