my $timeout = 86400; $timeout -= sleep $timeout while $timeout > 0;