#!/usr/bin/perl -w
use strict 1.04;
use warnings 1.06;
use CGI 3.52;
use JSON 2.53;
#use utf8;
# dieses Script wird in Notepad++ als "UTF-8" gespeichert

sub testdef {
	my %test = (
		'umlaute2'	=> '"öäüÖÄÜ@€ß"',
		'ausgabe'	=> sub {
			my ($data) = @_;
			my $json = JSON->new->utf8->encode($data);
			print STDOUT CGI->new->header(-charset=>'UTF-8').$json;
		},
	);
	return \%test;
}
1;