print $sock "PRIVMSG $channel :Thread Finished";

##</code><code>##

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