use DBI;

my $datenbank = "DDT";
my $host = "NAME";
my $port = "PORT";
my $protocol = "TCPIP";
my $dsn  = "DBI:DB2:database=$datenbank;host=$host;port=$port;protocol=$protocol";

my $benutzer = "NAME"; my $passwort = "PASSWORT";

my $dbhandle = DBI::->connect( $dsn, $benutzer, $passwort) or die DBI::errstr;

$dbhandle->disconnect;