perl -e "system ('perl', '-e', 'while (1) {my $x = 1}'); while (1) {my $y = 1}"