Select Code to Download

#!/usr/bin/env perl

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

$ zcat pm_1149165_1.gz
q
...
z
x
c