in reply to Date displaying the 0's
my $date = sprintf ("%04d-%02d-%02d", $year, $mon, $mday); [download]