$ seq 1000000000 | gzip | perl -e'$SIG{ PIPE } = "IGNORE"; exec("zcat")' | head
1
2
3
4
5
6
7
8
9
10

gzip: stdout: Broken pipe