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