my $path_to_gzip = '/usr/bin/gzip';
## gzip -dc is equiv to gzcat
open(INFILE,"$path_to_gzip -dc |") || die "Could not start gzip : $!\n";
while (my $line = <INFILE>) {
    ## process data
}
close(INFILE);