Select Code to Download

use strict;
use B::Deparse;
...
my $body = $deparse->coderef2text($func);
print $body;