% for e in `seq 1000` ; do perl -e1 ; done