#!/usr/bin/perl

use strict;

while(1){

	system("perl Benchmark.pl 1");
	sleep 1;

}; # while