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