Use Encode;
.
.
.
open(OUT,">topurls.htm") or die "Can't open output: $!";
print OUT <<'END_HEADER';
Top URLs
Top URLs
Link | Count | Users |
END_HEADER
foreach my $u (keys %topurls) {
my @line;
$line[0] = ''.encode('UTF-8',$topurls{$u}{title}).'';
$line[1] = $topurls{$u}{count};
$line[2] = $topurls{$u}{users};
print OUT ''.join(' | ',@line).' |
'."\n";
}
print OUT '
';
close OUT;