#!/usr/bin/env perl

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

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

while(1) {

    my $endtime = time;
    my $sleeptime = $cycletime - ($endtime % $cycletime) - 1;

    if($sleeptime) {
        print "Sleeping for $sleeptime\n";
        sleep($sleeptime);
    }

    `$cmd`;
}