>perl -le"print length unpack 'A', 'S';" 1