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";
         };