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";