sub read_config_file {
    my ($filename) = @_;
    package ConfigFile;
    do "$filename";
    if (length $@) { ... }
  }

##</code><code>##

  tie %ConfigFile::, "ValueFetcher"