Take a look at File::Find It makes your life a little easier.

use File::Find; 
 
find (\&wanted , "//Infoserver/firstdirectory/seconddirectory/mydirect
+ory" ); 
 
sub wanted { 
print "$File::Find::name\n"; 
}
[download]