#!/usr/bin/perl -w

use Encode;
use utf8;

use Data::Dumper;
#$Data::Dumper::Useperl = 1;

my $string =  'ä, ö, ü / Ä, Ö, Ü, ß ¿Adónde vas?';

$string = encode_utf8( $string ) ;


my $print_count = 1;
my $hash = { key => $string };
my $tmp =  Dumper $hash;
print "1:$tmp\n";


        # Turning $Data::Dumper::Userperl to 0 causes a segfault in the second dumper;
        $hash = eval $tmp;
        print "Value is : $hash->{key}\n";
        $tmp = Dumper $hash;
        print "2:$tmp\n";

        $hash = eval $tmp;
        print "Value is : $hash->{key}\n";
        $tmp = Dumper $hash;
        print "2:$tmp\n";