The POD for File::Find is pretty clear on the topic :) Normal behaviour is recursive...
For example:

#!/usr/bin/perl -w
use strict;
use File::Find;
my @files = ();

&find(\&wanted,'E:\Common\Intranet');

sub wanted { if (!/\./) { push(@files,$_); } }  
#if you actually wanna look for files with no period in it
#Do something with @files
[download]

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.