Help for this page
print unpack 's', pack 'S', unpack 'n', $n;
sub utos16{ unpack 's', pack 'S', $_[0] }