- or download this
$year = 1900 + (localtime)[5]; $mon = 1 + (localtime)[4];
- or download this
(undef, undef, undef, undef, $mon, $year) = localtime; $mon += 1;
- or download this
($mon, $year) = (localtime)[4,5]; $mon += 1; $year += 1900; warn $year
+, " ", $mon;