use strict;
use warnings;
use B::Deparse;

sub makeGreeting
  {
    my $str = "Hello ";
    return sub {
      my ($name) = @_;
      print "$str $name\n";
    }
  }

my $greet = makeGreeting();
my $deparse = B::Deparse->new();
print $deparse->coderef2text($greet);