Du musst das globale Directory-Handle DIR noch lokalisieren (besser eine sub-lokale my-Variable verwenden), dann müsste es gehen.