use Net::IRC;
my $irc = new Net::IRC;
my $conn = $irc->newconn(
	Server 		=> shift || 'ayaka.xelium.org',
	Port		=> shift || '6667',
	Nick		=> 'HelloBot',
	Ircname		=> 'I like to greet!',
	Username	=> 'hello'
);
$conn->{channel} = shift || '#KefkasTower';
sub on_connect {
	my $conn = shift;
	$conn->join($conn->{channel});
	$conn->privmsg($conn->{channel}, 'Hello everyone!');
	$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();