DBI an Package übergeben

[Struppi]

11  bless($ref, $self);
12  $self->{dbh}=$dbh;

$ref ist dein Objekt, nicht self.

Struppi.