sub dbconnect { 
   my $self      = shift;
   my %attr      = @_;

   my $user = $self->config_param($attr{'db'}.'.user');
   my $pass = $self->config_param($attr{'db'}.'.pass');

   my $dbh = DBI->connect_cached('DBI:mysql:'.$dbn.':'.$host,
                                  $user,
                                  $pass, 
                                  {RaiseError => 1}
                                  ) or die "Can't connect: $DBI::errstr\n";
   return ($dbh);
}