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;

##</code><code>##

Hello  Mike

From Data::Dumper
$VAR1 = sub { "DUMMY" };

From Data::Dump::Streamer
my ($str);
$str = 'Hello ';
$CODE1 = sub {
           use warnings;
           use strict 'refs';
           my($name) = @_;
           print "$str $name\n";
         };