#!/usr/bin/env perl

use strict;
use warnings;
use autodie qw{:all};

open my $gz_pipe, '|-', 'gzip >> pm_1149165_all.gz';

while (<>) {
    open my $zcat_pipe, '-|', "zcat $_";
    print $gz_pipe $_ while <$zcat_pipe>;
}