Select Code to Download

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

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