Nice, but you only need to use one big-endian long 'N':     my $dec = unpack 'N', pack "C*", split /\./, $ip;

Here's a example for the curious: http://3519380377/.

--
John.