Perl require config

[provocating]

I am doing some Perl scripts that are requiring me to have MySQL access, obviously I do not want my login and password information in these scripts. I would rather have them outside of the script. Is there something in the emulator that would interfere with this ? Using a perl require seems to work fine outside of the emulator, I can print out variable results at the command line. Within the emulator the variables do not seem to import properly.

Something simple like

config.pl

use DBI;
$db_database='peq';

and script.pl

#!/usr/bin/perl

require 'config.pl';

sub EVENT_SAY
{
  if($text=~/Hail/i) {
    quest::shout('db name ' . $db_database);
  }
}

I would think that would work, now if I do a print after the require line, like print $db_database, it works all day long.

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