open(FOO,$foo) || die "Can't open $foo: $!";