use Carp;
$SIG{__DIE__} = \&Carp::confess;