You're packing a negative number with an unsigned template 'N', which means it will be treated as a large positive value. And when you unpack it, it will return that large positive value.

The solution is don't use an unsigned template for packing numbers than can be negative. Use a signed template:

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

print unpack 'j', $p;;
-3544
[download]