perl -le"print length unpack "A", "\n";"
1