($mon, $year) = (localtime)[4,5]; $mon += 1; $year += 1900; warn $year, " ", $mon;