my $dbh= DBI->connect("DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port",
       $db_user, $db_passwd,{RaiseError=>1}); #or die $DBI::errstr;
       $dbh->{'mysql_enable_utf8'}=1;
       $dbh->do("set NAMES 'utf8'");

##</code><code>##

$case_header = Encode::decode_utf8($case_header);