my ($day, $month, $year) = (localtime)[3..5];
$year += 1900;
## increase $month to get desired output
$month++;
my $date = "$year-$month-$day";

print "$date\n";

$date = localtime;
print "$date\n";

__output__

2004-5-17
Mon May 17 10:41:08 2004