sub get_domkey{                                                                 
while(<>){                                                                      
if (/\*([^*]+)\*/) {                                                            
$key=$1;                                                                        
print "$key\n";                                                                 
&get_domcf;                                                                     
                }                                                               
        }                                                                       
}                                                                               
sub get_domcf{                                                                  
open DOM_CF, '/u/ds2/r61/domcf.dat' or die "Can't open DOM control file because 
$!\n";                                                                          
while (<DOM_CF>){                                                               
if (/\$key/){                                                                   
@dom_opts=$1;                                                                   
                }                                                               
        }                                                                       
}