I think:

open(Z, "gunzip -c $zfile|");
[download]

you can also use "zcat" (or "gzcat" on some systems) instead of "gunzip -c".