my $date = sprintf ("%04d-%02d-%02d", $year, $mon, $mday);