use B::Deparse;

my $deparse = B::Deparse->new();

my $body = $deparse->coderef2text(sub {
# your program here
});

print $body;