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

##</code><code>##

___
-DA
> perl -MPOSIX -le '$ENV{TZ}="EST";print ctime(1000000000)'
Sat Sep  8 20:46:40 2001