#my $converter = Text::Iconv->new('UTF-8','ISO-8859-15');
#$out = $converter->convert($out);
$out = encode('ISO-8859-15',$out);
say $f ('#'x20)."\nZeile ".__LINE__."\n$out";