i'm always a fan of wasting disk space personally so here's the shortest way i can see of doing that:

{open N,">/$=";print N"x"x$=++;close N;redo}
[download]

or we could also check out how many open files we can have with a small modification:

{open N,">/$=";$=++;redo}
[download]

These can probably be shortened as well...

jynx