Better yet, see IO::Zlib, which lets you use a simple filehandle interface.

use IO::Zlib;  #requires Compress::Zlib, of course
my $fh = IO::Zlib->new("foo.gz");
while (<$fh>) {
    go_nuts();
}
[download]