do 'stat.pl';  

##</code><code>##

    scalar eval `cat stat.pl`;  

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