#!/usr/bin/perl -w
use Net::IRC;

my $irc = new Net::IRC;
	
my $conn = $irc->newconn(
	Server		=> shift || 'irc.apoboc.com',
	Port		=> shift || '6667',
	Nick		=> 'Test',
	Ircname		=> 'Testing',
	Username	=> 'hello'
);

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

sub on_connect { print STDERR "Connected!KJ!LK\n"; }

sub on_connect {
	print "Connected!\n";
	my $conn = shift;
	$conn->join($conn->{channel});
	$conn->privmsg($conn->{channel}, 'Success!');
	$conn->{connected} = 1;
}

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

sub on_join {
	my ($conn, $event) = @_;
	my $nick = $event->{nick};
	$conn->privmsg($conn->{channel}, "Hello, $nick");
};
$conn->add_handler('join', \&on_join);
$irc->start;