use Date::Calc qw(Today Days_in_Month);
     my ($year, $month, $day) = Today();
     return Days_in_Month($year,$month - 1);

##</code><code>##

sub dayslastmonth
{
  use Date::Calc qw(Today Days_in_Month Add_Delta_YMD);
  my ($year,$month,$day) = Add_Delta_YMD(Today(), 0, -1, 0);
  return Days_in_Month($year,$month);
}