or download this
use autodie qw' system ';
for my $opts ( "", "-n -x", "-x", "-c" ){
...
pp -v 99 -o use-mojo-n_-x.exe use-mojo.pl -n -x >log-use-mojo-n_-x
+.exe.txt 2>&1
pp -v 99 -o use-mojo-x.exe use-mojo.pl -x >log-use-mojo-x.exe.txt
+ 2>&1
pp -v 99 -o use-mojo-c.exe use-mojo.pl -c >log-use-mojo-c.exe.txt
+ 2>&1