in reply to the next day's date
sub next_day { sleep 86400; return localtime(); } [download]
sub next_day { sleep 24 * 60 * 60; my $date = localtime; sleep -24 * 60 * 60; return $date; } [download]