#!/usr/local/bin/perl
use strict;
use File::Find;

my $dirs = '/web/directory/AA';
my $dirs2 = '/web/directory/BB';
my $dirs3 = '/web/directory/CC'


find(\&search, $dirs);
find(\&search, $dirs2);
find(\&search, $dirs3);

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