Select Code to Download

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

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