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