Select Code to Download

while(1) {
        my @priority_array;
...
            }
        }
    }

while(1) {
        ($rready,$wready) = IO::Select->select($sel, $sel, undef);
...
            gen_chars($wsocket);
        }
    }