Help for this page

Select Code to Download

Select or download this

use IO::Uncompress::Gunzip ();
my $in = IO::Uncompress::Gunzip->new('tst.gz', MultiStream=>1 )
    or die "$IO::Uncompress::Gunzip::GunzipError";
print while <$in>;
close $in;