use strict;
use warnings;
use Data::Dumper;
use Data::Dump::Streamer;

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

my $greet = makeGreeting();
$greet->("Mike");

print "From Data::Dumper\n",Dumper $greet,"\n\n";
print "From Data::Dump::Streamer\n",Dump $greet;