use strict;
use warnings;
use JSON; 
# Bytes für das € Zeichen
# UTF-8
my $h = { euro => pack("CCC", 226, 130, 172)};
print encode_json($h); # Müll