my @octets=split(/\./,$ip_address);
my $numerical_address=($octets[3]+(255*$octets[2])+(65535*$octets[1])+(16777216*$octets[0]));