There was one additional nit - which perhaps you can pick -the need to say "print Dumper (\$blah)" - why keep repeating the "print" or "warn" .. wouldn't is be nice to have an OO interface that remembers what you want to do .. something like:

  use Data::Dumper::Simple;
  
  my $Dump => new  Data::Dumper::Simple(
                    Output=>"warn", # or "print"
                    # or: Output=\&CodeRef
                    vars=($this,%that,@other)
                    };

 $Dump->() ; # Can't think of appropriate syntax here.. 
 # Line above would do the equivalent of
 print Dumper ($$this,%that,@other);
 
 # If we no longer want to output %that, do
 $Dump->Removevars(%that);
 # or even
 $Dump->Addvars(@Something_Else);
[download]