perl -e'$foo = pack "C", 65; print unpack("B*",$foo), "\n"'