Select Code to Download

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

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

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