use strict;
my $t = time(); 
print $t, "\t", scalar localtime($t)";