Select Code to Download

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(t
+ime);
$year += 1900;
...

print "the date minus 6 months = \" $mday - $mon - $year \"\n";