$ perl -Mv5.14 -e'
   my $scabyte = 0x41;
   say unpack "B*", pack "C*", $scabyte;
'
01000001