Select Code to Download

use Time::Local qw( timelocal );

...
# For Time::Local < 1.04. Perl >= 5.8.0 doesn't need this.
(localtime($time))[3] == $d
   or die("Invalid date\n");

use Time::Local qw( timelocal );

...
print(is_valid_date('1-31-2006') ? 'valid' : 'invalid', "\n");
print(is_valid_date('1-32-2006') ? 'valid' : 'invalid', "\n");
print(is_valid_date('2-29-2006') ? 'valid' : 'invalid', "\n");