use DBI;
use strict;

my $DSN = "dbi:DB2:DATABASE=$db; HOSTNAME=$hostname; PORT=$port; PROTOCOL=TCPIP; UID=$user; PWD=$pass;";
my dbh = DBI->connect($DSN, $user, $pass)or die $DBI::errstr;