eval {
    my $dummy = timelocal($sec,$min,$hour,$mday,$mon,$year);
    die "Day out of range" unless (localtime($dummy))[3] == $mday;
};