Lol, something in the Perl section wouldn't go a miss.

Lol, imagine arguing over posts. What is love? Baby don't hurt me, don't hurt me, no more.

Too bad this isn't your script faggot. This is a ripped. Not form a script on here, but it isn't yours, why take credit for other peoples work? ;s

Also you could do this:-

!/usr/bin/perl

use IO::Socket;
use warnings;
use strict;

$sock = IO::Socket::INET->new(
PeerAddr => 'server_here',
PeerPort => 6667,
Proto => 'tcp' ) or die "could not make the connection";

while($line = <$sock>){
print $line;
if($line =~ /(NOTICE AUTH).*(checking ident)/i){
print $sock "NICK nick_here\nHelpBot :just a bot\n";
last;
}
}

while($line = <$sock>){
print $line;

use next line if the server asks for a ping

if($line =~ /^PING/){
    print $sock "PONG :" . (split(/ :/, $line))[1];
}
if($line =~ /(376|422)/i){
    print $sock "NICKSERV :identify nick_password\n";
    last;
}

}

You forgot

!/usr/bin/perl

use warnings;
use strict;

Don't wanna get into bad habits now ;)

Phew, finally got on here. I like how you've went with your own unqiue side instead of what is more simple, as long as it works, right? The regular expressions used in it are =o
But really nice work for your first script man, 6/10 I'll vote when the days are up. The game also.