open( my $fh, "-|", '/bin/zcat' => $file ) or die "Error opening $file: $!";