perl -wMstrict -le 'print unpack("B8",pack("i",3))'
00000011