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