#!/usr/bin/perl

#
use IO::Socket;


use IRC::Parser; 

my $Parser = IRC::Parser->spawn; 



$server = '74.214.32.240';
$port = '6669';
$nickname = 'KryptBot';
$username = 'coding 0 0 :Perl Bot';
$channel = '#opers';
$sock = IO::Socket::INET->new(PeerAddr=>$server,
                             PeerPort=>$port,
                             Proto=>'tcp',
                             Timeout=>'30') || print "Error: Connection\n";
die "Could not make connection to $server\n" unless $sock;


while($sockread = <$sock>) {
  
  my($origin, $command $target, $args, $text) = $Parser->break($sockread); 


        print $sockread;
        if($sockread =~ /(NOTICE AUTH).*(Found your)/i){
                print $sock "NICK $nickname\r\n";
                print $sock "USER $username\r\n";
                print $sockread;
        }
        if($sockread =~ /^PING/){
                print $sock "PONG :" . (split(/ :/, $sockread))[1];
        }
}