open (FOO, "<$foo") or die "Cannot read $foo: $!";