Help for this page
my $dbh = DBI->connect(..., {RaiseError => 1});
$dbh->do(qq|set names 'utf8'|) or die "Could't set names to utf8: " . $dbh->errstr;