Select Code to Download

use B::Deparse;
sub bar { print "foo" }

...
my $body = $dep->coderef2text(\&bar);

print $body;