Select Code to Download

sub uint16_to_bytes {
   my ($int) = @_;
...
   my ($lo, $hi) = @_;
   return unpack('s', pack('S', unpack('v', pack('C2', $lo, $hi))));
}