How do I use a DB2 connection with DBI and mod_perl?

I'm having trouble getting the IBM DB2 DBI driver to work with mod_perl. My test script:

#!/usr/bin/perl

use strict;
use CGI;
use Data::Dumper;
use DBI;

{
    my $q;
    my $dsn;
    my $username;
    my $password;
    my $sth;
    my $dbc;
    my $row;

    $q = CGI->new;
    print $q->header;
    print $q->start_html();

    $dsn = "DBI:DB2:SAMPLE";
    $username = "username";
    $password = "password";

    print "<pre>".$q->escapeHTML(Dumper(\%ENV))."</pre>";

    $dbc = DBI->connect($dsn, $username, $password);

    $sth = $dbc->prepare("SELECT * FROM SOME_TABLE WHERE FIELD='SOMETHING'");
    $sth->execute();
    $row = $sth->fetchrow_hashref();
    print "<pre>".$q->escapeHTML(Dumper($row))."</pre>";

    print $q->end_html;
}

      

        
        
        
      

    

This script works like CGI but not under mod_perl. I am getting this error in apache error log:

DBD::DB2::dr connect warning: [unixODBC][Driver Manager]Data source name not found, and no default driver specified at /usr/lib/perl5/site_perl/5.8.8/Apache/DBI.pm line 190.
DBI connect('SAMPLE','username',...) failed: [unixODBC][Driver Manager]Data source name not found, and no default driver specified at /data/www/perl/test.pl line 15

      

        
        
        
      

    

First of all, why is it using ODBC? The native DB2 driver is installed (hence it works like a CGI).

Running Apache 2.2.3, mod_perl 2.0.4 under RHEL5.

This guy had the same problem as mine: http://www.mail-archive.com/ dbi-users@perl.org /msg22909.html But I have no idea how he fixed it. What is mod_php4 related to mod_perl?

Any help would be greatly appreciated, I had no luck with google.

Update

As james2vegas pointed out, the problem has something to do with PHP: I disabled PHP together, I get another error:

 Total Environment allocation failure! Did you set up your DB2 client environment?

      

        
        
        
      

    

I believe this error is due to incorrect setting of environment variables, viz DB2INSTANCE

. However, I am unable to disable PHP to solve this problem (I need this for some legacy applications). So, I now have 2 questions:

• How can I fix the original problem without disabling PHP together?
• How can I fix the environment problem?

I have set the variables DB2INSTANCE, DB2_PATH and SQLLIB correctly using SetEnv

and PerlSetEnv

in httpd.conf

, but no luck.

Note. I edited the code to determine if the issue was globally persistent.