my $dbh = DBI->connect("dbi:mysql:$database:$db_server", 
"$db_user", "$db_pass") or die "Error: $DBI::errstr $!\n";