Unnamed

#!perl
use IO::Socket;
use strict;
use threads;

my $nick="Ktulhu";
my $ident="huy";
my $server="eu.wondernet.nu";
my $port="6667";
my $realname="Her";
my $channel="#steals";


for(1...2){
my $thread = threads->new(\&bot);
$thread->detach;
}
bot();
sub bot {
	my $rand = int(rand(10));
	my $socket = IO::Socket::INET->new("$server:$port") or die "Not connect\n";
	print $socket "NICK $nick$rand\n";
	print $socket "USER $ident 0 $server :$realname\n";
	print $socket "JOIN $channel\n";

	while(<$socket>){
		if(m/^PING (.*?)$/gi){
			print $socket "PONG ".$1."\n";
		}
	}
}