my $nowthen = localtime;
print $nowthen, "\n";