sub tomorrow_date { sleep 86_400; my $time = localtime; sleep -86_400; return $time; }