use File::Find;
find( \&do_stuff, $from_dir );