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