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