Data::Dump::Streamer can do that. Here is the different outputs you can get with Data::Dumper and Data::Dump::Streamer

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;
[download]

This code outputs:

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";
         };
[download]

Hope this helps

citromatik