Help for this page

Select Code to Download

Select or download this

use Time::Local;
my $date = ' 19990230'; # 30th Feb 1999
...
    timelocal(0,0,0,$day, $month-1, $year); # dies in case of bad date
+ 
    1;
} or print "Bad date: $@";