Select Code to Download

use File::Find;
use strict;
...

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

use HTML::LinkExtor;

...
  $p->parse_file($_);
  print $p->links;
}