package My::Dumper;

use base 'Data::Dumper';

sub Dumper
{
     my $result = Data::Dumper::Dumper(@_);
     $result =~ s/\\\\/\\/g;
}