#!/usr/bin/perl

use Net::IRC;
$chanel = "#cybershade";

$irc = new Net::IRC;

$conn= $irc->newconn(
	Server => shift|| 'theseraphim.mine.nu',
	Port => shift|| 6667,
	Nick => 'WelcomeBot',
	Ircname => 'OBot2',
	Username => 'Welcome');
	
$irc->start();

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

	
		sub on_connect {
			$self = shift;
			
			$self->join($chanel);
			$self->privmsg($chanel,	'Hello Everyone, i hope your okay!');
		}
		
		
		
		sub on_join {
			($self, $event) = @_;
			$nick = $event->{nick};
			$self->privmsg($chanel,	"Hello $nick");
		}