{

    $sock = new IO::Socket::INET ( PeerAddr => $host,
                                   PeerPort => $port,
                                   Proto => 'tcp',
                                   Reuse => 1
                                 );
    $sock->autoflush(1);

   print $sock "log in information";

   my $read_set = new IO::Select($sock);

   my $incoming_server_data = "";

   while (1) {
       my @ready = $read_set->can_read(.5);
       foreach my $rh (@ready) {
           my $line = <$rh>;
           $incoming_server_data .= $line;
           parse(\$incoming_server_data);
       }
   }

}