#!/usr/local/bin/perl
#
@t=< *.t >;
while(1) {
	$a=int(rand($#t+1));
	print "Start $t[$a]\n";
	system "perl $t[$a]";
	print "Done $t[$a] - $?\n";
	sleep( rand(20) );
	};

