Select Code to Download

sub bits { glob join "", map "{0,1}", 1..$_[0] }
say for bits(10);
...
1111111101
1111111110
1111111111

sub bits { glob "{0,1}" x $_[0] }