DBI an Package übergeben

[Perl Anfänger]

Hi!

$dbh = DBI->connect($DSN, $USER, $PASS) || die "mist...";

wie kann ich $dbh an einer Klasse übergeben? Oder muss ich in der Klasse connect erneut aufrufen?

bei "my $test1=test->new($dbh);" erhalte ich folgende Fehlermeldung

Can't call method "prepare" on an undefined value at /x/y/z/test.pm line 46.

new sieht wie folgt aus
sub new {
  my $self=shift;
  my $dbh=shift;
  my $ref={};

bless($ref, $self);

$ref->{db}=$dbh;

$ref;
}

Danke!