use strict;
$|++;

use IO::Zlib;
use Data::Dumper;

my $fname = 'xxxxx-access_log.7.gz';
my $fhin = IO::Zlib->new($fname, 'rB') or die $!;
die "bad file handle" unless $fhin->can('getline');

while (defined(my $line = $fhin->getline())) {
    print "$line\n";
}