my $dbh = DBI->connect( 'dbi:Oracle:<<DAS_HIER>>',
                        'user',
                        'pass',
                      ) || die "Database connection not made: $DBI::errstr";

$dbh->disconnect();