simple code for a YYYYMMDDHHMMSS time stamp follows...

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]

note irritating little additions to deal with year/month.

all the best,