Select Code to Download

$pid = open (INPUT, "mycommand $somefile |") or die ...;
while (<INPUT>) {
...
  }
}
close INPUT;

$pid = open (INPUT, "gzip -dc $somegzfile | mycommand |") or die ...;
while (<INPUT>) {
...
  }
}
close INPUT;