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