sub local_yyyymmdd {
  my $time = shift || time();
  my ($year, $month, $mday) = (localtime($time))[5,4,3];
  $year += 1900;
  $month++;
  return sprintf "%04d-%02d-%02d", $year, $month, $mday;
}