Select Code to Download

#!/usr/bin/perl -w

...
print "Value is : $hash->{key}\n";
$tmp = Dump ($hash)->Out();
print "2:$tmp\n";

Subroutine B::SV::object_2svref redefined at C:/Perl/lib/DynaLoader.pm
+ line 253.
1:$HASH1 = { key => "\344, \366, \374 / \304, \326, \334, \337 \277Ad\
+363nde vas?" };
...

Value is : ä, ö, ü / Ä, Ö, Ü, ß ¿Adónde vas?
2:$HASH1 = { key => "\344, \366, \374 / \304, \326, \334, \337 \277Ad\
+363nde vas?" };