[0] Perl> $n = 0x7; print unpack 'b6', pack 'V', $n while ( $n = _next( $n ) ) < ( 0x7 << 3 );;
110100
101100
011100
110010
101010
011010
100110
010110
001110
110001
101001
011001
100101
010101
001101
100011
010011
001011