#!/usr/bin/perl

die "usage: loop 'programname-and-arguments' [seconds between re-execution; default 60]" unless @ARGV;

my ($program, $seconds) = @ARGV;

if (!$seconds) { $seconds = 60; }

while(1) {
  system($program);
  sleep $seconds;
}