my $dbh = $self->param('dbh') or carp "dbh is not behaving\n";
...
$sth->execute() or carp "problems executing ...\n"