# utf-8 Oktetten sind korrekt
my $r = {foo => "Fünf € Lösung"}; 
print 
    JSON->new->utf8(1)->encode($r),
    "\n",
    JSON->new->utf8(0)->encode($r);

__END__
{"foo":"Fünf € Lösung"}
{"foo":"Fünf € Lösung"}