Da wird dann dasselbe $ct später überschrieben? Dann such doch mal nach $ct in deinem Code.

//EDITH:
Ich würde eine IDE nehmen wie Komodo IDE und dann einen Watchpoint(Conditional Breakpoint setzen. wenn $ct dann "" ist, stoppt das Programm. Dann kannst du versuchen mit Breakpoints das Problem einzugrenzen.
Sicherlich geht sowas auch im Perl-Debugger, aber das Textinterface ist nicht für jede*n.
Last edited: 2021-04-20 11:30:21 +0200 (CEST)

Ältere Anwendungen bringen manchmal ihre eigene Datenbank für MIME::Types mit, oder setzen sie sogar selbst aus den Daten in /etc/mime.types zusammen. So eine Datei gibt's unter Windows aber nicht.

Du kannst die Anwendung mal mit der Umgebungsvariable PERL_MIME_TYPE_DB auf die types.db zeigen lassen, die mit MIME::Types mitkommt. Die Umgebungsvariable hat die höchste Priorität. Wenn Deine Anwendung mit der Umgebungsvariable funktioniert, dann hast Du vermutlich den Fall aus dem ersten Absatz. Dann solltest Du die Aufrufe von MIME::Types->new mal auf den Parameter db_file abklopfen. Der zeitlich erste Aufruf bestimmt die verwendete Datenbank.