my $date = sprintf '%04d/%02d/%02d-%02d:%02d:%02d',
    sub { $_[5]+1900, $_[4]+1, reverse @_[0..3] }->(gmtime($output));