{
    my $config_file = '/Inetpub/Secure/foo.dat';
    my $data        = do ( $config_file ) or die "Cannot process $config_file: $!";

    sub new {
        my $class  = shift;
        my ( $module ) = ( $class =~ /.*::(.*)$/ );
        my $objref = { _dbh => _connect( data_source => $data->{ data_source },
                                         user        => $data->{ $module }{ user },
                                         pass        => $data->{ $module }{ pass } ),
                       _error => 0 };
        bless $objref, $class;
    }
}