Select Code to Download

use B::Deparse;
use B::Concise qw(set_style);
...
foo();
$body = $deparse->coderef2text(\&foo);
print $body, "\n";