Select Code to Download

my @wready = $sel->can_write(0.0001);
my $wsocket;
foreach $wsocket (@ready) {
    gen_chars($wsocket);
}