use File::Find; 
 
find (\&wanted , "//Infoserver/firstdirectory/seconddirectory/mydirectory" ); 
 
sub wanted { 
print "$File::Find::name\n"; 
}