open FOO, '<', $foo
    ||  die "Could not read $foo: $!\n";