use Modern::Perl '2015';

use Test::More "no_plan";

my $encoding = $^O eq 'MSWin32' ? 'cp850' : 'utf8';
binmode(STDOUT, ":encoding($encoding)" );
binmode(STDERR, ":encoding($encoding)" );
binmode(STDIN,  ":encoding($encoding)" );

my @umlaute = qw/Ä Ü Ö ß ä ü ö/;

foreach my $umlaut ( @umlaute ) {
	say "Umlaute: $umlaut";
}

fail("Umlaute können dargestellt werden");