Select Code to Download

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

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

#!/usr/bin/perl
use v5.14;
...

say "";
say $bin;

Decimal = [65]  Hex = [41]  Binary = [01000001]
Decimal = [66]  Hex = [42]  Binary = [01000010]
...
Decimal = [68]  Hex = [44]  Binary = [01000100]

01000001010000100100001101000100

#!/usr/bin/perl
use v5.14;
...
my $bin = unpack "B*", $packed_bytes;

say $bin;

01000001010000100100001101000100