Select Code to Download

# build packed executable
system(
...
    "-o", "$ppt_dir/packed/perlpowertools.exe",
    @tools
) == 0 or die "system failed: $?";

my $ppt_bin = defined $ENV{PAR_TEMP} ? "$ENV{PAR_TEMP}/inc/script" : d
+irname(abs_path($0));
...
my $file = "$ppt_bin/$tool";
$0 = $tool; # for usage/warning/error messages
my $return = do $file;

# let perldoc also search in perlpowertools bin
unshift @INC, dirname(abs_path(__FILE__));