my $ymd = sub{sprintf '%04d%02d%02d',
    $_[5]+1900, $_[4]+1, $_[3]}->(localtime);