Select Code to Download

package mydbh;
@ISA = qw( DBI );
...
   my $self = DBI->connect( $dns, $username, $password );
   return bless $self, $class||ref $class;
}

package mydbh;
@ISA = qw( DBI );
...
   my $ref = DBI->connect( $dns, $username, $password );
   return bless { DBI => $ref }, $class||ref $class;
}