#!/usr/bin/perl

use strict;
use warnings;

use utf8;
use Encode;

use Data::Dumper;

my $Dumper= 'bla';

*Dumper= *myDumper;

print __LINE__, " Dumper=[$Dumper]\n";

binmode STDOUT, 'utf8';

our $VAR1;
my $data = { umlaut => 'ä' }; # this is a non-ACII a Umlaut
# my $data= 'ä'; # this is a non-ACII a Umlaut

my $x= Dumper($data);
print __LINE__, " x=[$x]\n";

sub myDumper
{
  my $var= shift;
  my $dumped= Data::Dumper::Dumper($var);
  # print __LINE__, " dumped=[$dumped]\n";
  eval $dumped;
  sprintf("%s", Data::Dumper::Dumper($VAR1));
}
__END__