#!/usr/bin/perl
use IO::Socket;
$log = "botlogs.log";
$sname = "irc.m-lan.ru";
$sport = 6667;
$nick = "BOTin0x";
$server=IO::Socket::INET->new( PeerAddr => $sname,
                               PeerPort => $sport,
                               Photo => tcp)
   or die "ERROR!";
print $server "NICK $nick\n";
print $server "USER bot 0 0 :just a bot\n";
$response = <$server>;
chomp($response);
if ($response =~/(376|422)/i)
{
 open LOG, ">$log";
 print LOG "Сессия началась...\n";
 print $server "JOIN #unart\n";
 print $server "PRIVMSG #unart Всем привет, я - всего лишь бесполезный бот, которого написал n0xi0uzz. Я нихрена не делаю, а просто вишу на канале\n";
 while ($response)
 {
  print LOG;
 }
}