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