# clean up if the temp files were already there
unlink $_ or die "unlink $_: $!\n" for grep {-e $_} "/tmp/a$$", "/tmp/b$$";
system("(perl $rpla && touch /tmp/a$$) & (perl $rplb && touch /tmp/b$$)");
$rc = -e "/tmp/a$$" && -e "/tmp/b$$";
# cleanup temp files
unlink $_ or die "unlink $_: $!\n" for grep {-e $_} "/tmp/a$$", "/tmp/b$$";
####
my $output = `(perl $rpla >/dev/null 2>&1 && echo a) & (perl $rplb >/dev/null 2>&1 && echo b)`;
my $success = $output =~ /a/ && $output =~ /b/;
##
##
------------
:Wq
Not an editor command: Wq