D:\dev>perl -le "print unpack 'B*',chr($_) for 1..10"
00000001
00000010
00000011
00000100
00000101
00000110
00000111
00001000
00001001
00001010