$p = pack 'j', -3544;;

print unpack 'j', $p;;
-3544