$ /usr/bin/perl
use strict;
use warnings;
use DBI;
use DBD::DB2;
DBI->connect('DBI:DB2:viper', 'db2inst3', '');
__END__

DBI connect('viper','db2inst3',...) failed: Total Environment 
allocation failure!  Did you set up your DB2 client environment?