Was genau soll das Programm machen?

Das gepostete Programm benutzt die Windows-Funktion dir. Kann durchaus sein, dass das Probleme macht. Das sollte in Perl-interne Funktionen (opendir,...) umgeschrieben werden.