my $long= unpack "P4", pack "L", $addr;