Select Code to Download

use Net::IP qw(:PROC);

...
my $int = $ip->intip();

print "Integer value of IP $ipaddr: $int\n";

use Net::IP qw(:PROC);
                                                                      
+                                                                     
+      
...

!defined($binaddr) and print "Binary not defined\n";
print "Binary value of integer $intaddr: $binaddr\n";