Select Code to Download

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