sub new {

my $self = shift;

bless...

my $dbh = shift;

$self->{dbh} = $dbh;

return $self;

}


##</code><code>##


use MyModule;

use DBI;

my $dbh = DBI->connect(...);

my $foo = MyModule::->new($dbh);