$int= unpack "L", unpack "P4", pack "L", $addr;