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