use utf-8;
# zwingend erforderlich, in utf-8 zu scripten allein 
# ist zuwenig.

use Encode qw(encode decode); $enc = 'utf-8';
$in{'suchmich'} = decode($enc, $in{'suchmich'});
#
# decodieren aller relevanten von 'außen' übergebenen
# Variablen, da perl intern utf-8 leider nicht versteht

open my $fh, "<:encoding(UTF-8)", $infile
#
# einlesen externer Textdaten als utf-8, auch wenn diese
# schon utf-8 sind

# und vor der ersten Ausgabe in Dateien oder als HTML
binmode STDOUT, ':encoding(UTF-8)';