Select Code to Download

        sleepUntil(
            nextTimeOccurence({time=>'3:15', weekdays=>'MTWRF'}), 
            sub {printf"%s - Next telemetry pull in %s.\r", scalar loc
+altime, englishTime(shift)}
            );
        print "\n";

sub sleepUntil
{
...
    $time = int($time/24);
    return "$time day".($time==1?'':'s');
}