#!/usr/bin/perl

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

my $irc = new Net::IRC;

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

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

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