DBI->connect( $dbname, $dbuser, $dbpass, $dbd );

##</code><code>##

DBI->connect("dbi:$dbd:$dbname", $user, $pass);

##</code><code>##

my $DBI_version = getDBI_Version();
if ( $DBI_version > $oldstyle ) {
      $dbh = DBI->connect("dbi:$dbd:$dbname", $user, $pass);
} else {
      $dbh = DBI->connect( $dbname, $dbuser, $dbpass, $dbd );
}