$ pp -o myscript -e 'print "$_\n" for($0, $^X, $ENV{PAR_TEMP})'
$ (PATH=`pwd` ; myscript)
myscript
perl
/tmp/par-bsb/cache-89ce8dd3edc8a3087f577d4031b104f815b5280e
$ (PATH=`pwd` ; cd /; myscript)
Usage: myscript [ -Alib.par ] [ -Idir ] [ -Mmodule ] [ src.par ] [ program.pl ]
       myscript [ -B|-b ] [-Ooutfile] src.par
$ unzip -l myscript
Archive:  myscript
  Length     Date   Time    Name
 --------    ----   ----    ----
       41  07-05-04 17:47   script/ppp4lZz.pl
      246  07-05-04 17:47   script/main.pl
      436  07-05-04 17:47   MANIFEST
      216  07-05-04 17:47   META.yml
 --------                   -------
      939                   4 files
$ unzip -p myscript script/main.pl
my $zip = $PAR::LibCache{$0} || Archive::Zip->new(__FILE__);
my $member = eval { $zip->memberNamed('script/ppp4lZz.pl') }
    or die qq(Can't open perl script "script/ppp4lZz.pl": No such file or directory ($zip));
PAR::_run_member($member, 1);