use File::Find qw();

...

File::Find::find(...);