print $sock "PRIVMSG $channel :Thread Finished\r\n";