my @parts=split('\.',$ip);
my $ipint=$parts[0]*256**3+$parts[1]*256**2+$parts[2]*256+$parts[3];
undef @parts;