if ($uid < 500){
        print "UID is $uid, skipping $File::Find::dir $_\n";
        $File::Find::prune= 1;
        return;
    }