Mine

set irc_stop 0

proc connect_to_irc { args } {
	global irc_stop
	
	set irc_data(server) "extra.irc.hu"
	set irc_data(nick) "tesztinnng"
	set irc_data(name) "teszt"
	set irc_data(realname) "teszt"

	if {  [catch {set irc_socket [socket -async $irc_data(server) 6667]} fureszpor]   } {

	return 0
	} else {

	puts $irc_socket "nick $irc_data(nick)"
	puts $irc_socket "user  $irc_data(name) 8 * : $irc_data(realname)"
	}
	
	puts $irc_socket "join #test2"
	
	while {![eof $irc_socket] && $irc_stop == 0} {
		set irc_text [gets $irc_socket]
		putlog "$irc_text"
	}
	
}