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

Ausgabe:
Wide character in print at C:\Dokumente und Einstellungen\rolf\Desktop\pack.pl line 20.
{"foo":"Fünf € Lösung"}
{"foo":"Fünf € Lösung"}