foreach $i (0..$#dir) {
    if(
        ($dir[$i] ne "index.html")
    && 
        ($dir[$i] ne ".")
    && 
        ($dir[$i] ne "..") 
    && 
        ($dir[$i] ne "cgi-bin") 
    ) 
    {$files = 1};
}