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