Help for this page
my $num = 22 # 0b00010110 print $num << 2; # 0b01011000
perl -wE 'printf "%#010b", 33 # 0b00100001'