use B::Deparse;
  $deparse = B::Deparse->new("-p", "-sC");
  $body = $deparse->coderef2text(\&func);

##</code><code>##

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