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