....

# Main
...
my $genre_objekt = Trk_dict->new('genre_dict');
if ($genre_objekt =~ /Dateilesefehler.*/){say $genre_objekt;exit}
if ($genre_objekt =~ /Dateiinhalt.*/){say $genre_objekt;exit}
....