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