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