#!/usr/bin/perl

 

use strict;

use IO::Socket;

use Socket;

 

my $server = "theseraphim.mine.nu";

my $port = '6667';

my $chanel = "#cybershade";

my $name = "oToom";

 

my $con = new IO::Socket::INET(PeerAddr => $server, PeerPort => $port, Proto => "tcp") or die "Couldn't connect xD";

 

print $con "NICK Jessica\r\n";

print $con "USER Jessica : Jessica\r\n";

print $con "JOIN $chanel\r\n";

 

while (my $body = <$con>){

chop $body;

 

          if($body =~ /^PING(.*)$/i) {

                    print $con "PONG $1\r\n";

          }

 

          if($body = /^¬version(.*)$/i) {

                    print $con "PRIVMSG $chanel I am no bot! Version 0.1\r\n";

          }

 

          if($body = /^¬owner(.*)$/i) {

                    print $con "PRIVMSG $chanel I belong to oToom!\r\n";

          }

 

}