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";

##</code><code>##

use HTML::LinkExtor;

my $p = HTML::LinkExtor->new();

sub process_file {
  return unless /\.html?$/i; # skip unless *.htm / *.html file
  return unless -f _; # skip processing unless $_ is really a file (not a dir)
  $p->parse_file($_);
  print $p->links;
}