# this does not work
use strict;
use Net::Ping;
use warnings;

my $ip = qw(172.16.1.2);
#
my $works = &pingIp($ip);
#
if ( $works == 1 ) {
  print "does not ping\n";
} else {
  print "pings\n";
}

sub pingIp {
   my $ip1 = shift;
   my $p = Net::Ping->new();
   if ($p->ping($ip1)) {
     print "return is 0\n";
     return 0;
   } else {
     print "return is 1\n";
     return 1;
   }
   $p->close();
}

##</code><code>##


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


##</code><code>##

my @IParray = qw(172.16.1.2 172.16.1.3);
foreach my $ip (@IParray) {
  my $works = &pingIp($ip);
  if ( $works == 1 ) {
    print "$ip does not ping\n";
  } else {
    print "$ip pings\n";
  }
}