use IO::Socket;

$con = IO::Socket::INET->new(
	PeerAddr	=>	'ayaka.xelium.org',
	PeerPort	=>	'6667',
	Proto		=>	'tcp',
	Timeout		=>	'30'
) || print "Fatal error! $\n";

print $con "NICK TestBot\r\n";
print $con "USER Bot * * :This is a bot!\r\n";
sleep 3;
print $con "JOIN #KefkasTower\r\n";


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