Hmm what you have does not display my entire file either, but the following works perfectly:

use IO::Zlib;
tie *FILE, 'IO::Zlib', "xxxxx-access_log.7.gz", "rb";
print <FILE>;
__END__
I wish I were
an oscar
meyer
weiner


yeah!
[download]

as does

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

soooo, I can't tell you what's wrong, but hey ;)

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.