Select Code to Download

# $readable_handles = Select::IO->new();
# $readable_handles->add($server_sock);

  $select_object = Select::IO->new($server_sock);

#while(1){
while(@readables = $select_object->can_read){

# if( $sck eq $sock ){}
if( $sck == $sock ){}

            else {
# store message in queue
...
     $hash{$sock} = 
        $clients[ scalar @{$select_object->can_write()} ]

#!/usr/bin/perl
use utf8;
...
}