BEGIN {
    use Carp;
}

$SIG{__DIE__} = sub { Carp::Confess(@_) };
$SIG{__WARN__} = sub { Carp::Cluck(@_) };