use IO::Socket;
$server = 'irc.azzurra.it';
$port = '6667';
$channels = '#hack';
$nick = 'eXcelsior';
$username = "eXc \"\" \"\" :eXc";
$socket = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => "tcp",
Type => SOCK_STREAM);
print $socket "user $username\n";
print $socket "nick $nick\n";
if ($linea =~/^PING/i){
$linea =~ s/^ping\s+://;
print $socket "PONG :$linea \n";}
print $socket "join $channels\n";
print $socket "privmsg $channels Salve \n";
while ($linea = <$socket>) {
print "$linea \n";
if ($linea =~/^PING/i){
$linea =~ s/^ping\s+://;
print $socket "PONG :$linea";
}
if ($linea =~/!0/){print $socket "quit BYe\n";}
if ($linea =~/!say/){
$linea =~s/!say //;
@say =split(/\s+/,,$linea);
print $socket "privmsg $channels @say[3]\n";
}
if ($linea =~/!ban/){
$linea =~s/!ban //;
@nick =split(/\s+/,,$linea);
print $socket "mode $channels +b @nick[3]\n";
print $socket "kick $channels @nick[3]\n";
}
if ($linea =~/!kick/){
$linea =~s/!kick //;
@nick =split(/\s+/,,$linea);
print $socket "kick $channels @nick[3]\n";
}
}