#!/usr/bin/perl -w

use strict;
use File::Find;

my @dirList = ('/dir/to/parse');

find(\&wanted, @dirList);

sub wanted {
  print "Processing: $File::Find::name\n";
}

print "done.\n";

##</code><code>##

#!/usr/bin/perl -w

use strict;
use File::Find;
use FindBin;

chdir($FindBin::RealBin);

my @dirList = ('/dir/to/parse');

find(\&wanted, @dirList);

sub wanted {
  print "Processing: $File::Find::name\n";
}

print "done.\n";