eww, look at all those lexicals. If you can never be bothered, like me, to memorise strftime's format language, a coderef is a wonderful way of sweeping the bits under the covers.

my $datespec = sub { sprintf '%02d_%02d_%02d_%02d%02d%02d',
    $_[3], $_[4]+1, $_[5]%100, reverse(@_[0..2])
}->(localtime);
[download]