#!/usr/bin/perl
#
# On Start
# (c) 2007 Gregor Jehle <gjehle@gmail.com>
#
# 

package ON_START;

my $mcps_masterkey = 'YourMCPSMasterKey';
my $fish_inipw = 'YourFishMasterKey';

IRC::register("on start","0.1","","");
IRC::add_timeout_handler(300,'ON_START::on_start');
IRC::print("on start. loaded");

sub on_start
{
	IRC::command("/masterkey $mcps_masterkey");
	IRC::command("/fishpw $fish_inipw");
	#IRC::command("/someother command you want to execute");
}