I think this line:

my $dbh = $self->dbh->('db1');
[download]

Should look like this:

my $dbh = $self->dbh('db1');
[download]