say unpack( "l", pack "L", ($value & 0xffffffff));
say unpack( "l", pack "L", ($value));
say unpack( "l", pack "l", ($value));