my $perfdbh = DBI->connect("DBI:mysql:database=$database;host=$dbhost", "******", "******", {RaiseError => 1, AutoCommit => 1}) or die $DBI::errstr;