#!/bin/perl -w
use strict;
use Bot::BasicBot;

my $bot = Bot::BasicBot->new(
 server => "ircserver",
    port   => "6697",
    ssl => "true",
    channels => ["#testing123"],
    
    nick      => "mlapaglia",
    alt_nicks => ["bbot", "simplebot"],
    username  => "mlapaglia",
    name      => "mlapaglia",

  );

$bot->run();

sub said {
	print "ahhh\n";
}