#!/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; }