Slightly better is:

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

But since most of the time is spent reading/parsing, this will make negligible improvement performance wise.