#! c:/perl/bin/perl.exe
use strict;
use Compress::Zlib ;

my $gz = gzopen("c:\\eee.tar.z", "rb") || die "Cannot open c:\\eee.tar.z: $gzerrno\n" ;

while ($gz->gzreadline($_) > 0) {
            print ;
        }