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

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