my $dbh = DBI->connect( ...) or die "..."; $dbh->do("set names 'latin1'") or die "...";