#!/usr/bin/perl -w

use Net::IRC;
use strict;

my $irc = new Net::IRC;


my $conn = $irc ->newconn (
       Server       => shift || 'newyork.ny.us.undernet.org',
       Port         => shift || '6667',
       Nick         => 'Hello Gomar',
       Ircname      => 'My name is Gomar',
       Username     => 'hola'
);


$conn ->{channel} = shift || '##';

sub on_connect {


    my $conn = shift;

    $conn ->join($conn ->{channel});
    $conn ->privmsg($conn ->{channel}, 'Hi my name is gomar!');
    $conn ->{connected} = 1;
}

sub on_join {


    my ($conn, $event) = @_;
    my $nick = $event ->{nick};
    $conn ->privmsg($conn ->{channel}, "Hello, $nick!");
}

sub on_part {


     my ($conn, $event) = @_;
     my $nick = $event ->{nick};
     $conn ->privmsg($conn ->{channel}, "Goodboye, $nick!");
}

$conn ->add_handler( 'join', \&on_join);
$conn ->add_handler( 'part', \&on_part);

$conn ->add_handler('376', \&on_connect);

$irc ->start();