open(ALLIP, "allip.list") || die "Unable to open file: allip.list\n";
while (<ALLIP>) {
        chomp;
        system("ping $_ >>pingallip.list");
}
[download]