Select Code to Download

# clean up if the temp files were already there
unlink $_ or die "unlink $_: $!\n" for grep {-e $_} "/tmp/a$$", "/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 >/d
+ev/null 2>&1 && echo b)`;
my $success = $output =~ /a/ && $output =~ /b/;

------------
:Wq
Not an editor command: Wq