#!/usr/bin/perl
#
#  +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
#  |                                            |
#  +     +------+                               +
#  |    /      /|          /------------\       |
#  +   +------+ |         /...internet...\      +
#  |   |      | |         |............+----+   |
#  +   | data |<--------->|............|user|   +
#  |   |      | |    ^    |............+----+   |
#  +   |      |/     |    |..............|      +
#  |   +------+      |    \............../      |
#  +                 |     \------------/       +
#  |                 |                          |
#  +            +---------+                     +
#  |            |CARNIVORE|                     |
#  +            +---------+                     +
#  |                                            |
#  +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+
#
######################################################################
# INIT
######################################################################
use Socket;
$port = 6667;
$host = 'localhost';  #or replace with the IP address of your CarnivorePE machine
$chan = '#carnivore'; #or replace with the channel of your choice

######################################################################
# MAIN
######################################################################
#CONNECT TO CARNIVORE PE
socket (IRC, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die "Socket error: $!\n";
connect(IRC, sockaddr_in($port,inet_aton($host))) || die "Connect error: $!\n";

#JOIN A CHANNEL
$buffer = "JOIN $chan\n";
syswrite IRC, $buffer, length($buffer);

for(;;){             #START LOOPING
    $packet = <IRC>; #GET A PACKET
    print $packet;   #NOW, MAKE SOME ART ;-)
}

close(IRC);