unless(check_date(param('year'), param('month'), param('day')) {
   # do something
}

##</code><code>##

my @month_lengths = (31, 28, 31, 30, ......);