die "Can't open $foo: $!" unless open FOO, $foo;