use IO::Zlib;
my $fh = new IO::Zlib;
$fh->open('zipfile.gz','rb');
while(<$fh>) {
  print 
}
$fh->close