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

my $deparse = B::Deparse->new(); 
my $body = $dep->coderef2text(\&bar);

print $body;