my $dec = unpack 'N', pack "C*", split /\./, $ip;