sub last_day {
   my $t = localtime;
   $t += Time::Piece::ONE_DAY * ($t->month_last_day - $t->mday + 1);
   return $t->fullday;
}