Select Code to Download

sub get_timestamp {
    my ($sec,$min,$hour,$mday,$mon,$year) = localtime(time);
...
    return sprintf('%u-%02u-%02u %02u:%02u:%02u.000',
                   $year+1900, $mon+1, $mday, $hour, $min, $sec);
}