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