use strict;
use POSIX qw(strftime);

sub local_yyyymmdd {
  my ($time) = shift || time;
  return strftime( '%Y-%m-%d', localtime($time));
};