#! c:\perl\bin -w

 my $NAMES = "c:/names.txt";
 open NAMES, $NAMES or die "DOH cannot open $NAMES";
  @NAMELIST=<NAMES>;
  chomp(@NAMELIST);
    foreach $NAME (@NAMELIST) {
      open TESTED, '>>C:\tested.txt';
       system('c:\winnt\system32\ping.exe -n 1 -w 75 "$NAME"');
      print TESTED "$NAME\n";
      close TESTED;
    }
 close NAMES;
exit 0;