Select Code to Download

# for just DottedQuadToLong():
use Net::IP;
...
use Net::IP qw/:PROC/;
print ip_bintoint(ip_iptobin("24.72.30.83",4));
print ip_bintoip(ip_inttobin("407379539",4),4);

sub DottedQuadToLong {
    my $ip_str = shift;
...
    }
    return $ip;
}