use B::Deparse;

sub somecode {
    do { print "some stuff\n" }
}

my $somevar = B::Deparse->new();
print $somevar->coderef2text(\&somecode);