怎样显示保错信息？

[xuxiaoyan]

如果下面这个sql写错了或没有满足条件的where子句， 在叶面希望打印出sql，(不去看log,)怎么写呢？

my $sth=$dbh ->prepare("select return_id,supplier_id from return_list where return_list_no=? ");
$sth->execute($return_list_no);
($supplier_cn,$supplier_id ) = $sth->fetchrow_array;

[D_Q]

加 die
加个sub过程

过程中 将error info保存到 log 中就可以