use IO::Zlib;
my $fh = new IO::Zlib;
if ($fh->open("xxxxx-access_log.7.gz", "rb")) {
    print <$fh>;
    $fh->close;
}
__END__