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

use Sub::Information as => 'inspect';
my $code_info = inspect(\&somecode);
print $code_info->code;