#!/usr/bin/perl
use Net::IP;
my $ip = new Net::IP ($ARGV[0]) or die (Net::IP::Error());
print "In Binary: " . $ip->binip . "\n";
$decip= bin2dec($ip->binip);
print "DecIP:$decip\n";
sub bin2dec {
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}