my $dbh = DBI->connect(..., {RaiseError => 1});

##</code><code>##

$dbh->do(qq|set names 'utf8'|)
    or die "Could't set names to utf8: " . $dbh->errstr;