print to_json($r),"\n"; # Aequivalent zu print JSON->new->utf8(0)->encode($r),"\n";