#!/usr/bin/perl
open FD, "<machines.used" or die "Cannot open log file for reading"; 
while(<FD>) {
  $m = $_ ; 
  chop $m; 
  system("ssh $m kill -9 -1"); 
}
close FD; 
system("rm -f machines.used");
exit;