Help for this page

Select Code to Download

Select or download this

use Date::Manip;

...

$next += 24 * 60 * 60 if $next < $now;
sleep($next - $now);