use warnings;
use strict;
use Compress::ZIP2::non_chunk_header;
# This generates Header Example 1
my $x= new Compress::ZIP2::non_chunk_header;
$x->ENDX_Offset (2000000);
$x->TOCN_Offset (200);
open my $outfile, ">out1.xxx" or die;
$x->emit ($outfile);
# This generates Header Example 2
$x= new Compress::ZIP2::non_chunk_header (""); # empty Usage Text
open $outfile, ">out2.xxx" or die;
$x->emit ($outfile);
Page content copyright 2003 by John M. Dlugosz. Home:http://www.dlugosz.com, email:mailto:john@dlugosz.com