sub ipToNum {
        my $ip = shift;
        my @octets  = split(/\./, $ip);
        my $ip_number = 0;
        foreach my $octet (@octets) {
                $ip_number <<= 8;
                $ip_number |= $octet;
        }

        return $ip_number;

}