$year = 1900 + (localtime)[5]; $mon = 1 + (localtime)[4]; 
##</code><code>##

(undef, undef, undef, undef, $mon, $year) = localtime; $mon += 1; 

##</code><code>##

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