#!/usr/bin/perl

$fnam = shift ; 
open fd, $fnam ;
$repeat = shift ;

$count = 0 ; 

while ($line = <fd>) {
	push @list, $line ; 
}
close (fd);

for ($i = 0; $i < $repeat ; $i++) {
	foreach $line (@list) {
		chomp $line ;
		($srv, $ip) = split /\s+/, $line ;
		$count ++ ;
		print "running: ./initwin.512.csh $srv $ip $i \n" ;
		system ("./initwin.512.csh $srv $ip $i");
	}
}