my $date = localtime;
my $n    = list localtime;
print "$date\n";
print "$n\n";
__END__
Sat Apr 23 14:52:09 2005
9