my $ltotal = 0;

foreach my $dir (@good_dirs) {
     chomp($dir);
     unless ($dir eq "") {
          File::Find::find({wanted => \&wanted}, "/mnt/$dir");
     }
}

sub wanted {
     my ($dev,$ino,$mode,$nlink,$uid,$gid);

     (($dev,$ino,$mode,$nlink,$uid,$gid) = lstat($_)) &&
     -d _ &&
     /^class\z/s &&
     $ltotal++;
}