opendir(ROOT_DIR,"/")|| die "Error:$!\n";
my @todo = grep {$_ ne '..'} readdir(ROOT_DIR);
closedir(ROOT_DIR);
while (my $what = shift @todo) {
  if (-f $what){
    log_sbit($what) if (-u $what || -g $what);
  }
  elsif (-d $what && opendir(SUB_DIR, $what){
    push @todo, map {"$what/$_"} grep {$_ ne '..'} readdir(SUB_DIR);
    closedir(SUB_DIR);
  }
}