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

##</code><code>##

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