2005-04-21 perl でdieをconfessにしちゃう #全トラップ BEGIN { $SIG{__DIE__} = sub { require Carp; Carp::confess(@_) } }