sub get_foocf {                                    
            my $key = shift;                       
            open (FOO_CF, '/tmp/foocf.dat')  
              or die "Control file unavailable $!";
               while (<FOO_CF>) {                     
                if (/$key/) {                      
                }                                  
                my $foo_opts = ($');               
                get_foo_opts($foo_opts);            
            }