Help for this page
open(FOO, $foo) || die("ERROR: Unable to open file $foo for read: $!") +;
open(FOO, "zcat $foo |") || die("ERROR: Unable to open gzipped file $f +oo for read: $!");