I am sorry again i am disturbing YOU. i don't want to change either in sql query or deleting rows. I am asking that, is there any mechanism in perl that a person can throw error intentionally. Because i am using

 $SIG{__WARN__} = \&WARN_Handler;
$SIG{__DIE__} = \&DIE_Handler;
[download]

And i also written code for handle error using WARN_HANDLER AND DIE_HANDLER