my ($day, $month, $year) = (localtime)[3..5];

##</code><code>##

$year +=1900;
my $datestr = join "-", ++$month, $day, $year;