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