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