sub ip_2_int {
    my ($ip) = @_;
    $ip =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/
         or die "$ip is an invalid address";
    return ($1<<24)|($2<<16)|($3<<8)|$4;
}