Select Code to Download

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);
}

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

our %script_aliases = load_scripts();

...
    }
}

sub run_script {
    our ($kernel, $bot_version, $bot_nick, $irc_admins, $qstat_master,
+ $irc_host, $irc_chan, $irc_msg, $qstat_addr, $User_Info, @randquote)
+ = @_;
...
    }
    }
}

sub mem_usage_load { 
    my $alias     = 'mem usage';
...

    return ($alias, $sub, $variables);
}