Perl - How to write a simple exception handler function in Perl

$SIG{__DIE__} = sub 
{ 
 print "Exception: ".$_[0]."n";
 print "My Exception Handlernnn"; 
};
 
die("REASON");

Category:

Perl example - How to write a simple exception handler function in Perl