open (my $zip, '-|', 'gzip -dc compressed_file.gz') ||
      die "Can't run gzip: $!";

while (<$zip>) {
  # do some stuff
}
close $zip;