WARN_Handler and DIE_Handler are the two sub routines i have defined. Whenever db throw errors these routine will get activated. i am calling these methods using SIG { } command See bellow code

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

here &WARN_Handler and &DIE_Handler are the two sub routines OK. So now tell me how to throw db error as we in JAVA or some languages.

warn and die are perl sub routines OK, understand?

i know that, i also know that whenever any thing goes wrong then those sub routine will be called. But the thing is as in java or .Net can i throw our own exception/error in perl