$lastDay = lastDayOfMonth($month); #returns a number indicating last day
...
sub lastDayOfMonth
{
    my $month=shift;
    <sanity check here>
    return 29 if($month==2 and isLeapYear($currYear));
    <and so on>
      
}