use Carp (); $SIG{'QUIT'} = \&Carp::confess; #### kill -QUIT 12345