Select Code to Download

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

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

my $DBI_version = getDBI_Version();
if ( $DBI_version > $oldstyle ) {
...
} else {
      $dbh = DBI->connect( $dbname, $dbuser, $dbpass, $dbd );
}