Danke euch beiden aber beides war es nicht. Habe nach zwei Stunden den Fehler gefunden:

Im großen Script stand vor require MIME::Types; my $types = MIME::Types->new; noch ein undef local $/, was für was anderes dort gebraucht wird.
Ich nehme mal an, dass ich damit das Laden dieser types.db störe. Und im Testscript gibt es das halt nicht.