perl -wle '`perl -le "print q!*! x 1_000_000 while 1"`'

##</code><code>##

perl -wle '$_ = `perl -le "print q!*! x 1_000_000 while 1"`'