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

require 'test_charset3.pl';
my $test = testdef();

$test->{'umlaute1'} = '"öäüÖÄÜ€@ß"';

my %ausgabe = (
	1 => $test->{'umlaute1'},
	2 => $test->{'umlaute2'},
);
$test->{ausgabe}->(\%ausgabe);