Okay a little about my bot, first off my irc_public() from the main script looks a little something like this.

sub irc_public {
    my ($kernel, $who, $where, $msg) = @_[KERNEL, ARG0 .. ARG2];
    run_script($kernel, $bot_version, $bot_nick, $irc_admins, $qstat_m
+aster,
$who, $where, $msg, $qstat_addr, $User_Info, @randquote);
}
[download]

run_script() is contained in QStatBot::Scripts.pm, Scripts.pm itself contains 3 subs, the first one checks for all the scripts within the scripts/ directory and requires the file then

my @alias = eval
"${script}_load()";
[download]

which will return 2 values from the script, the bot command seen from a public channel and the alias that it is used with it. And the information about those scripts are stored in a global hash inside the module. The sub itself:

our %script_aliases = load_scripts();

sub load_scripts {
    my (%script_aliases, $script_aliases);
    if (-d "scripts") {
    while(<scripts/*.script>) {
        my $script_name = $_;
        my $script = $1 if $script_name =~ /\/(.*)\.script/;
        print "Loading script: $script_name\n";
        require "$script_name";
        my @alias = eval "${script}_load()";
        $script_aliases{$alias[0]} = $alias[1];
    }

    return %script_aliases;
    } else {
    die "Scripts directory does not exist.\n";
    }
}
[download]

And then the next sub QStatBot::Script::run_script() which recives all those variables from irc_public() when ever something happens in the channel , the bot looks at the messages and determines if any of them are commands my checking the global hash to see if the key exists and then calling up the sub for which that command is tied to.

sub run_script {
    our ($kernel, $bot_version, $bot_nick, $irc_admins, $qstat_master,
+ $irc_host, $irc_chan, $irc_msg, $qstat_addr, $User_Info, @randquote)
+ = @_;
    our ($irc_nick, $irc_hostmask) = split(/!/, $irc_host);

    if ($irc_msg =~ /^$bot_nick.* commands$/i) {
    my @commands;
    for (keys %script_aliases) {
        push @commands, $_;
    }
    @commands = sort @commands;
    my $commands = join ', ', @commands;
    send_chan_message($irc_chan, "commands: $commands", $kernel);
    } elsif ($irc_msg =~ /^$bot_nick.* /i) {
    for (keys %script_aliases) {
        if ($irc_msg =~ /^$bot_nick.* $_/) {
        eval "$script_aliases{$_}()";
        last;
        }
    }
    }
}
[download]

Those variables also seem to have to be made global as well since they do not get imported into the scripts otherwise. Before I had declared all the variables I needed inside all the scripts beforehand such as:

sub mem_usage_load { 
    my $alias     = 'mem usage';
    my $sub       = 'display_mem_usage';
    my $variables = '$kernel, $irc_chan';

    return ($alias, $sub, $variables);
}
[download]

And passed the variables through such as eval "$script_aliases{$_}{'sub'}($script_aliases{$_}{'variables'})"; but that was kinda awkward having to do it like that so I dropped the idea and just made the variables global to save on the hassles caused. Anways, it's these scripts that are the problem I need to call another sub QStatBot::Scripts::check_permission() (maybe from run_script() just before eval "$script_aliases{$_}()";) which I will later create to look for another predefined value returned from ${script}_load() and stored in the global hash, that of course will be returned from scriptname_load() from the various scripts. The value will be either 'v' or 'o' to define what the user who has issued the command has to currently be inside the channel (voice or operator). It's this sub I would have to issue the whois command to the server and collect the information returned and then process it and return a 0 or 1 to if the user is a allowed to use such a command. Thanks.