#!/usr/bin/perl

while(1)
 {
   system('/path/to/program');
 }