I would do something like below ...

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