Howzabout:

#!/usr/bin/perl -w
use strict;
use warnings;

my @gm = localtime(time);
printf "%04u%02u%02u%02u%02u\n", $gm[5]+1900, $gm[4]+1, $gm[3],
        $gm[2], $gm[1], $gm[0];
[download]

...roboticus