$irc->addfh($server, \&from_socket, "r" );