my @webhost = glob("$www/*");
# ...
   for my $i(@webhost) {
     if ( -d $i ) && ( $i ne "lost+found" ) && ( $i ne "DEFUNCT" ) {