...
my $dummy;
eval {
    $dummy = timelocal($sec,$min,$hour,$mday,$mon,$year);
};
...

##</code><code>##

$ perl 642627.pl
Day '31' out of range 1..29 at 642627.pl line 13
This is an invalid date.