[liverpole@myhost ~]% cat example.pl
#!/usr/bin/perl -w

use strict;

print "Enter: ";
my $input = <STDIN>;

[liverpole@myhost ~]% script output
Script started, file is output
liverpole@myhost# ./example.pl
Enter: tes
liverpole@myhost# exit
exit
Script done, file is output
[liverpole@myhost ~]% cat output
Script started on Wed Sep 23 17:46:45 2009
liverpole@myhost# ./example.pl
Enter: tes
liverpole@myhost# exit
exit

Script done on Wed Sep 23 17:47:08 2009