my ($day, $month, $year) = (localtime)[3,4,5];
$month += 1;
$year  += 1900;