print "Give me an answer:";
$answer = <STDIN>;
chomp $answer;
print "You said '$answer'.\n";