{
use strict; use warnings; 
my %wanted; 
$wanted{manageusers}=1; 

for my $inc (@INC) { 
  opendir (my $dh,$inc) || warn "Can't opendir $inc: $!";
  while (my $file=readdir $dh) {
    if ($file=~m/(.*)[.]pm$/) { 
      if ($wanted{$1}) { warn 'found:'.$inc.'/'.$file; } 
      }
    } 
  closedir $dh;
  }
}


##</code><code>##


 Can't opendir /usr/local/apache/lib/perl: No such file or directory at update_tables-development.cgi line 38. Tue Apr 11 11:26:22 2017 update_tables-development.cgi: Can't opendir /usr/local/apache/lib/perl: No such file or directory at update_tables-development.cgi line 38.