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