sub new {
        my ($classname, $file) = @_;
        my @inhalt;
        my %dict;
		my $FH;
        if (!open($FH, '<:unix:encoding(UTF-8)', $file)){
            open ($FH, '>:unix:encoding(UTF-8)', $file);
            open ($FH, '<:unix:encoding(UTF-8)', $file)}

...
...