my $date = do {
  my @now = localtime;
  sprintf("%02d%02d", $now[4] + 1, $now[3]);
};