$ perl -Mv5.14 -e'
   my $scabyte = 0x41;
   say sprintf "%08b", $scabyte;
'
01000001