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