my $tstamp = get_timestamp(); 

print "\n\n $tstamp \n\n"; # 1900-01-01 00:00:00.000

sub get_timestamp {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

$year=$year+1900;

return $year . sprintf('%02u%02u %02u%02u%02u', $mon, $mday, $hour, $min, $sec);
}