# To get the host archive from a packed program:

my $zip = PAR::par_handle($0); # an Archive::Zip object
my $content = $zip->contents('MANIFEST');

# Same thing, but with read_file():

my $content = PAR::read_file('MANIFEST');