use Net::IP qw(:PROC);

my $ipaddr = '10.0.1.3';
my $ip = new Net::IP($ipaddr) or die (Net::IP::Error());
my $int = $ip->intip();

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

##</code><code>##

use Net::IP qw(:PROC);
                                                                                                                                                 
my $intaddr = 167772419;
my $binaddr;
eval{
     $binaddr = ip_inttobin($intaddr);
};
die "Error: $@" if($@);

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