perl test.pl `perl -e 'print join(q[:], (1) x 200)'`