[perl] Ping6 to Ipv6

[perl] Ping6 to Ipv6

#!/usr/bin/perl

use strict;

use Net::Ping;



my $ip_address = $ARGV[0];

chomp($ip_address);





#Using System Command



my $retval=system("ping6 -c 2 $ip_address");



if ($retval==0) {

    print "Success!\n";

} else {

    print "Fail!\n";

}



print "\n\n\ Step2: $retval\n\n";

Reference :

• 
  Differences between system function “ping” and Net::Ping module in perl?