my (%master, %slave); 

my $confDir = "/opt/drutt/ca/conf"; 
 
print "Running local find for master \n"; 
find( sub { -f && $master{$_} = $File::Find::name }, $confDir);