use Time::localtime;

my $year  = 1900 + localtime->year; 
my $month = 1    + localtime->mon; 
my $day   =        localtime->mday;

print "$year-$month-$day\n";

#OUTPUT: 2003-5-28