pack:   $s = substr(pack('l>', $n), 1);
unpack: $n = unpack('l>', "$s\0")/256;

##</code><code>##

pack:   $s = substr(pack('l<', $n), 0, 3);
unpack: $n = unpack('l<', "\0$s")/256;