DBI Connections to TSM database

[Mark A. Adams]

I am running AIX 4.3.3.x with version 3.7.4 TSM.
I need to connect to the TSM database using perl, using the DBI and the
DBD::DB2 module.
I am having trouble connecting to the database. Could anyone give me a hand.

CODE
#!/usr/local/bin/perl

use DBI;
use DBD::DB2::Constants;
use DBD::DB2;

$db = DBI->connect("dbi:DB2:adsmsrv1", user, password);
if (!defined($db)) {
 print "Error connecting to server1 \n";
 #print "Error: " . DBD::DB2::Error(). "\n";
 exit(1);
}
exit(0);
######################################################

This is the error I am getting.
DBI->connect(adsmsrv1) failed: Total Environment allocation failure!  Did
you set up your DB2 client environment? at ./first.pl line 7
Error connecting to server1
#########################

Does any one have any ideas or could help me out?

Mark Adams
Systems Programmer
CSG Systems, Inc.