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

##</code><code>##

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