if (defined $ENV{PAR_APP_REUSE}) {
    my $filename = $ENV{PAR_APP_REUSE};
    delete $ENV{PAR_APP_REUSE};
    $ENV{PAR_0} = $filename;

    PAR::_run_external_file($filename, 1);
    exit();
}


my $zip = $PAR::LibCache{$ENV{PAR_PROGNAME}} || Archive::Zip->new(__FILE__);
my $member = eval { $zip->memberNamed('script/main_script.pl') }
        or die qq(main.pl: Can't open perl script "script/main_script.pl": No such file or directory ($zip));

PAR::_run_member($member, 1);

##</code><code>##

#############################################################
# part in the main_script.pl where the helper script is invoked
#############################################################

my $cmd;
if( defined $ENV{PAR_TEMP} )
{
    $cmd = "$0 --par-options --reuse $ENV{PAR_TEMP}/inc/script/helper_script.pl";
}
else
{
    $cmd = "perl helper_script.pl";
}

# invoke cmd