BEGIN { use Carp; $SIG{__DIE__} = sub { Carp::confess(@_) } }