Help for this page
#!/usr/bin/env perl ... open my $zcat_pipe, '-|', "zcat $_"; print $gz_pipe $_ while <$zcat_pipe>; }
$ zcat pm_1149165_1.gz q ... z x c