diff --git a/loadbot/make_do_all.pl b/loadbot/make_do_all.pl
index 6a1216f..a14a0aa 100755
--- a/loadbot/make_do_all.pl
+++ b/loadbot/make_do_all.pl
@@ -3,13 +3,16 @@
 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[13] root $parts[7] \$1\n";
+	print OUT2 "$parts[13]\n";
 }
 
 close OUT;
+close OUT2;
 
 # system "chmod +x do_all.sh";
 system "cat do_all.sh";