use B::Deparse;
use Data::Dumper;

my $deparse = B::Deparse->new;
print $deparse->coderef2text( sub{print 'Yeah'} )