# Frontend
...
my $genre_objekt = Trk_dict->new('genre_dict7');
if ($genre_objekt =~ /Dateilesefehler.*/){say "$genre_objekt";exit}
...
 
# Klasse
...
open( my $FH, '<:unix:encoding(UTF-8)', $file)
            or return "Dateilesefehler: '$file' konnte von Trk_dict nicht geöffnet werden\nGrund: $!\n";
...