AddCharset UTF-8 html ##

##

use utf8; # to state that the script itself is in utf8 
binmode STDIN, ":encoding(utf8)"; 
binmode STDOUT, ":encoding(utf8)"; 
use as_utf8; # which is the hack posted at http://www.perlmonks.org/?node_id=651574

##

##

# Connect to the database
my $dbh = DBI->connect($dsn, $user, $password, { RaiseError => 1, AutoCommit => 0, mysql_enable_utf8 => 1 }) 
or die "Can't connect: ", $DBI::errstr;

my $sql = qq{SET NAMES 'utf8' COLLATE 'utf8_swedish_ci';};
$dbh->do($sql);

##

##

SHOW VARIABLES LIKE 'c%' gives me the following output:
Variable_name  Value  
character_set_client utf8 
character_set_connection utf8 
character_set_database utf8 
character_set_filesystem binary 
character_set_results utf8 
character_set_server latin1 
character_set_system utf8 
character_sets_dir /usr/share/mysql/charsets/ 
collation_connection utf8_unicode_ci 
collation_database utf8_swedish_ci 
collation_server latin1_swedish_ci 
completion_type 0 
concurrent_insert 1 
connect_timeout 5 

##

##

T�rjebj���rne �landss��na

##

##

Törjebjöåärne �…landssäöna

##

##

use Encode;
decode_utf8($tmpl->output);