sub dayslastmonth
{
   use Class::Date qw(date now);
   my $date  = now;
   my $first = new Class::Date {year=>$date->year, month=>$date->month, day=>1};
   my $last  = $first - '0-0-1';
   return $last->day;
}