use File::Find;
use strict;

sub process_file {
  return unless -f _; # skip processing unless $_ is really a file (not a dir)
  # some code that 
  # does stuff with $_ (contains the "current file")
}

# call &process_file recursively for each file in /some/directory
find \&process_file, "/some/directory";