use Carp;
$SIG{__DIE__} = sub {confess "@_";};
$SIG{__WARN__} = sub {confess "@_";};