#!/usr/bin/perl -w

open NAMES, "names.txt" or die "Cannot open names file";

while (<NAMES>) {
    chomp;
    my $ping = `ping -c 1 $_`;

    if ($ping =~ /\((\d+\.\d+\.\d+\.\d+)\)/) {
	my $ip = $1;
	open TESTED, '>>tested.txt';
	print TESTED "$ip\n";
	close TESTED;
    } else {
	warn "Cannot deciper result of \"ping $_\"";
    }
}

close NAMES;
exit 0;