$packed = pack 'l', 17;;

print length $packed;;
4

print ord( substr $packed, $_, 1 ) for 0 .. 3;;
17
0
0
0