#!/usr/local/bin/perl -w

use strict;

use IO::Socket;

my $server = "irc.unitx.net";
my $nick = "Uhm";
my $user = "Umh";
my $pass = "";
my $login = "Umh_";
my $channel = "#Unit-X";
my $su = "TheBig";


sub antikick
{
        my ($input,$sock) = (shift,shift);
        if ($input =~ /^:.+!~.+ KICK #.+ .+ :.+/){ print $sock "JOIN ".$channel."\r\n"; }
        if ($input =~ /Cannot join channel/i) { print $sock "JOIN ".$channel."\r\n"; }
}

my $sock = new IO::Socket::INET(PeerAddr => $server,
                                PeerPort => 6667,
                                Proto => 'tcp') or
                                    die "Non posso connettermi a $server\n";



print $sock "PASS $pass\r\n";
print $sock "NICK $nick\r\n";
print $sock "JOIN $channel\r\n";
print $sock "PRIVMSG #Unit-X : ........\r\n";

while (my $input = <$sock>) {
    chop $input;
    if ($input =~ /^PING(.*)$/i) {

        print $sock "PONG $1\r\n";
    }
    else {

        print "$input\n";
    }

if ($input =~ /:(.*?)!/) {
        $user= $1;
    }

if ($input =~ m/:!bella/) {

 print $sock "PRIVMSG #Unit-X :suka $1,gay!\r\n";
}

 if ($input =~ m/:!list|:!lista/) {

 print $sock "PRIVMSG  #Unit-X : Oh,scemo pagliaccio.Niente liste qui!!! Fanculo.!\r\n";
}

if($input=~m/:!fuck/ & $input=~/$su/) {

 print $sock "QUIT\n";

}
}