perl -E 'open W, ">", "/tmp/$_.txt" and say for 1..100'