Line 30 use manageusers qw($LoggedOn_user_id);

{
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;
  }
}