package mydbh;
@ISA = qw( DBI );
require DBI;
use strict;
sub new {
   my( $class, $dns, $username, $password ) = @_;
   my $ref = DBI->connect( $dns, $username, $password );
   return bless { DBI => $ref }, $class||ref $class;
}