use strict;
use Data::Dumper;
sub print_code {
  my ($sub) = @_;
  my $d = Data::Dumper->new( [$sub] );
  $d->Deparse(1);
  print $d->Dump();
};

print_code(sub{ print 'This is a coderef' });