my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($time);
mktime(59,59,23,$mday,$mon,$year,$wday,$yday,$isdst);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime($time);
mktime(59,59,23,$mday,$mon,$year,$wday,$yday,$isdst);