pp -x -e "while (1) {my $x = 1}"