[blackdragonsdg]

Well I got it to work in a controlled manner. If anyone else wants to know how here ya go:

use DBI;
my $dbh = DBI->connect("DBI:mysql:database=peq;host=localhost", "root", "password", {'RaiseError' => 1});

sub EVENT_SAY {
	if($text=~/Hail/i) {
		$AcctID = $client->AccountID();
		$query = "update account set status = 5 where id = $AcctID;";
		$dbh->do($query);
  		quest::emote("'You now have access to the Kunark Expansion.'");
	}
}

Thank you Sorvani for the suggested rewrite of the script. It help me clean up my original script.