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