Mega Code Archive

 

Categories / Perl / Language Basics

 

$SIG{__DIE__}

$SIG{__DIE__} = sub {print "This script is about to die!\n"}; die;