use Time::localtime;
my $tm = localtime;
my $timestamp = sprintf("%04d%02d%02d%02d%02d%02d",
                        $tm->year+1900,
                        ($tm->mon)+1,
                        $tm->mday,
                        $tm->hour,
                        $tm->min,
                        $tm->sec);
[download]