our $config;
do './conf.pl' or die "Can't read config $!";
print $config->{host_1};

##</code><code>##

# read in config files: system first, then user
for $file ("/share/prog/defaults.rc",
           "$ENV{HOME}/.someprogrc")
    {
      	unless ($return = do $file) {
      	    warn "couldn't parse $file: $@" if $@;
      	    warn "couldn't do $file: $!"    unless defined $return;
      	    warn "couldn't run $file"       unless $return;
      	}
    }