Select Code to Download

<disco_database>
     <host>database-host.foo.com</host>
...
     <user>disco</dbname>
     <password>duck</password>
</disco_database>

package my_package;
use Class::DBI::Loader; 
...
        user=>$config->{disco_database}->{user},
        password=>$config->{disco_database}->{password}
         | and so forth...

| blah blah...
use IBM::Disco::HostEntry;
...
my $he = IBM::Disco::HostEntry->new{ config_file => 
                 qq(/path/to/file) );
|