Select Code to Download

print unpack 's', pack 'S', unpack 'n', $n;

sub utos16{ unpack 's', pack 'S', $_[0] }