subfile('iocommon');


sub subfile {my($f)=@_;my($w);if(!$GOT_HA{$f}){$f=($my_base_loc.$subslocation.$ds.$f.'.sub');
$t=open (IE,"$f"); $rep=($t)?'OK':$!;db("subfile $f",$rep);@tt=<IE>;close(IE);
while(@tt){$l=trim(shift @tt);$w.=$l."\n";}  eval($w);$GOT_HA{$f}=1;}}