$ perl -le'
my $length = 3;
for ( my $i; ; ++$i ) {
    last if $i & 1 << $length;
    printf "%0*b\n", $length, $i;
    }
'
000
001
010
011
100
101
110
111