Select Code to Download

sub dayslastmonth
{
...
   my $last  = $first - '0-0-1';
   return $last->day;
}

sub dayslastmonth
{
...
   my ($year, $month, $day) = Today();
   return Days_in_Month($year,$month - 1);
}