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