Wenn du rekursiv den Pfad durchsuchen willst, benutze bitte nicht
local *DIR
für das Dateihandle sondern meinetwegen
my $dir

Dateihandles kannst du auch mit FileHandle erzeugen.
Und Dateien finden mit File::Find