open(FOO, "zcat $foo |") || open(FOO, $foo) || die("ERROR: Unable to open file $foo for read: $!");