# 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;
      	}
    }