---

--------------
PERL CONNECT BOT IRC
-------------------


#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;

#Autoflush the output buffer
$| = 1;
#Create child process
my $pid = fork();
#If program is child process connect to irc
if ($pid == 0) {
        my $socket = IO::Socket::INET->new(PeerAddr => 'global.irc.gr:6667');
        print $socket "USER perl localhost global.irc.gr Celestrial\r\n";
        print $socket "NICK Celestrial\r\n";

        my $time = time();

        while (my $line = <$socket>) {
                chomp $line;
                my @words = split (/\s+/, $line);
                my $nickname = shift @words;
                my $cmd = shift @words;
                shift @words;
                if ((substr($nickname, 0, 6) eq ':Ginzo!') and ($cmd eq 'PRIVMSG')) {
                        my $message = join (' ', @words);
                        $message = substr($message, 1);
                        print $socket "$message\r\n";
               
                }
                #Send PING to server every 1 min
                if (time() - $time >= 60) {
                        print $socket "PING\r\n";
                        $time = time();       
                }
        }
}

---