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