I put together this test script and also put in a print in the central script to print the FILENAME. Here's the test script, located in "/home/sites-dev/home/dbtest.pl":

#!/usr/bin/perl
 
use DBI;
 
$database = "qsrsubs";
require '/home/sites/jdb.cgi';
 
print "DBH = $dbh\n";
print "DSN = $dsn\n";
 
$cmd = "show variables";
$sth = $dbh->prepare($cmd);
$sth->execute();
 
while (@ary = $sth->fetchrow_array) {
        print "PORT = $ary[1]\n" if grep(/port/, @ary);
}
[download]

And here's the output:

{jason@www home}$ /home/sites-dev/home/dbtest.pl
FILENAME = /home/sites-dev/home/dbtest.pl
DBH = DBI::db=HASH(0x816603c)
DSN = DBI:mysql:database=qsrsubs;port=3308
PORT = 3306

arg - this baffles me!

Jason