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

##</code><code>##

script: No such file or directory at Mojo/Home.pm line 25

##</code><code>##

  # Environment variable
  if ($ENV{MOJO_HOME}) {
    my @parts = File::Spec->splitdir(abs_path $ENV{MOJO_HOME});
    $self->{_parts} = \@parts;
    return $self;
  }


##</code><code>##

require Mojolicious::Lite;