Or more simply:
perl -le'print while s/$/1/' [download]
In reply to Re^2: Generate the perl sequence 1, 11, 111, .... by jwkrahn in thread Generate the perl sequence 1, 11, 111, .... by alih110