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

$i will never equal "lost+found" since $i will always start with "$www/". You might want File::Basename.

        - tye (but my friends call me "Tye")