use strict;
use warnings;
use HTML::Entities;
use Encode;

my $html = qq(<img alt="Weißer Nebel" />);
# Übergebe Bytes
# print encode_entities($html), "\n"; # Müll

# Schalte UTF-8-Kodierung ein
print encode_entities(decode_utf8($html)); # Korrekt