use autodie qw' system ';
for my $opts ( "", "-n -x", "-x", "-c" ){
    my $out = "use-mojo$opts.exe";
    $out =~ s/\s/_/g;
    my $log = "log-$out.txt";
    my $cmd = "pp -v 99 -o $out  use-mojo.pl  $opts   >$log  2>&1 ";
    print "$cmd\n";
    system $cmd;
}
__END__

pp -v 99 -o use-mojo.exe  use-mojo.pl     >log-use-mojo.exe.txt  2>&1
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