perl -wE 'printf "%#010b", 33 # 0b00100001'