my $code = $dbh->selectrow_array($sql)
  or warn "no code - ", $dbh->errstr;

do { eval($code); $@ } or warn "broken code - $@";