#!/usr/bin/perl 
use IO::Socket; 
$s = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=> 'irc.cyberarmy.com',PeerPort=>
6667); 
print $s "NICK b0t\nUSER b0t - - :b0t\n"; 
while($s) { my ($i,$j)= split/ /, $_ = <$s>; print; if ($_ eq 'PING') { print $s 'PONG '.$j;} }

##</code><code>##


#!/usr/bin/perl
use IO::Socket; #IO through sockets..;)
$s = IO::Socket::INET->new(Proto=>'tcp',PeerAddr=> 'irc.dal.net',PeerPort=> 6667); #set up the server and info for the bot.
print $s "NICK WhiteRav3n0wnz\nUSER b0t - - :b0t\n";
#Bot info to server.
print $s "JOIN #hackerhost\n";
#Chan to enter.
while($s){
#main bot loop
my ($i,$j)= split/ /, $_ = <$s>; #split incomming text
print; if ($_ eq 'PING')
{
#if you get a ping from the server,
print $s 'PONG '.$j;
#pong back..
}
}