my $pfad = 'C:/strawberry/PERL_DATA/';
chdir($pfad) or die "$pfad : ERROR $!";
open (FILE, '<:encoding(UTF-8)', 'test.txt') || die ("Can not open file: test.txt # [Error: $!]");