#!/usr/bin/perl

use Net::IRC;

my $irc = new NET::IRC;

my $con= $irc->newconn(
	Server => shift|| 'theseraphim.mine.nu',
	Port => shift||'6667',
	Nick => 'WelcomeBot',
	Ircname => 'Otoom\'s Hello bot.',
	Username => 'Welcome');
	
		sub on_connect {
			my $conn = shift;
			
			$conn->join($conn->{channel});
			$conn->privmsg($conn->{channel},	'Hello Everyone, i hope your okay!');
			$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();