zen% perl -MB::Deparse -MCarp -wle 'print B::Deparse->new("-p","-sC")->coderef2text(\&Carp::confess)' { package Carp; die(longmess(@_)); } zen%