• A more involved bootstrap script

my $file = $ENV{PAR_PROGNAME};
my $zip = $PAR::LibCache{$ENV{PAR_PROGNAME}} || 
      	Archive::Zip->new(__FILE__);
	$file =~ s/^.*[\/\\]//;
$file =~ s/\.[^.]*$//i ;
my $member = eval { $zip->memberNamed($file) }
        || $zip->memberNamed("$file.pl")
        || $zip->memberNamed("script/$file")
        || $zip->memberNamed("script/$file.pl")
        or die qq(Can't open perl script "script/foo.pl": 
		No such file or directory ($zip));
PAR::_run_member($member, 1);