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