#!/usr/bin/env perl

use strict;
use warnings;
use Time::HiRes qw(time sleep);

my $cmd = "./meaningoflifetheuniverseandeverything.pl";
my $cycletime = 10;

while(1) {
    my $starttime = time;
    `$cmd`;
    my $endtime = time;

    my $timetaken = $endtime - $starttime;
    if($timetaken >= $cycletime) {
        print "Immediate restart\n";
        next;
    }

    my $sleeptime = $cycletime - $timetaken;
    print "Sleeping for $sleeptime\n";

    sleep($sleeptime);
}