Select Code to Download

sub inc
{
...

    return sprintf '%02d:%02d:%02d', $hours, $mins, $secs;
}

$next = inc($next);