old-benchmark-code/loadbot/make_do_all.pl

#!/usr/bin/perl

use strict;

open OUT, ">do_all.sh";
open OUT2, ">testservers";

foreach my $line (split "\n", `cat /tmp/junk`) {
	my @parts = split " ", $line;
	print OUT "./ssh.pl $parts[17] root $parts[11] \$1\n";
	print OUT2 "$parts[17]\n";
}

close OUT;
close OUT2;

# system "chmod +x do_all.sh";
system "cat do_all.sh";