[c0ncrete]

something like this will work from the plugins directory:

use XML::Simple;
use DBI;
use DBD::mysql;

sub RunQuery {

	my $query = shift;
	
	# Read database config info from xml file.
	# NOTE: First line MUST read: <?xml version="1.0" ?>
	my $xml = new XML::Simple;
	my $dat = $xml->XMLin("../eqemu_config.xml");
	my $dbHost = $dat->{database}{host};
	my $dbPort = $dat->{database}{port};
	my $dbUser = $dat->{database}{username};
	my $dbPass = $dat->{database}{password};
	my $dbData = $dat->{database}{db};

	# Connect to the database.
	my $dsn = "dbi:mysql:$dbData:$dbHost";
	my $dbh = DBI->connect($dsn, $dbUser, $dbPass);

	# Run query and return result set. 
	my $sth = $dbh->prepare($query);
	$sth->execute;
	return $sth->fetchrow_array();

}

1;