perl でdieをconfessにしちゃう

#全トラップ
BEGIN { $SIG{__DIE__} = sub { require Carp; Carp::confess(@_) } }