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