my $dbh1 = DBI->connect('DBI:DATABASE_TYPE:DATABASE_NAME:DATABASE_SERVER','USERNAME','PASSWORD') || die "Error Connecting to \$dbh1: ".$DBI::errstr."\n";