my ($mday, $mon, $year, $wday) = (localtime)[3..6];
$mon  += 1;
$year += 1900;