my $dbh_DW = DBI->connect("DBI:DB2:Database=$DW_DB_NAME; Hostname=$DW_DB_HOST; Port=$DW_DB_PORT; Protocol=TCPIP; UID=$DW_DB_USER; PWD=$DW_DB_PASS;",$DW_DB_USER,$DW_DB_PASS)