Select Code to Download

use Time::Local;

...

# subtract a day from it (86400 seconds)
my $month_last_day = $next_month_noon - 86400;

# my code above, as a function
sub lastday_time {
...

  return $d == $last_day;
}