Select Code to Download

# this does not work
use strict;
...
   }
   $p->close();
}

print "Enter an IP:  ";
chomp (my $ip=<STDIN>);

my @IParray = qw(172.16.1.2 172.16.1.3);
foreach my $ip (@IParray) {
...
    print "$ip pings\n";
  }
}