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