@HTML::Entities::char2entity{ map chr, 128 .. 159 } =
  qw (
        &euro;
        &#129;
        &sbquo;
        &fnof;
        &bdquo;
        &hellip;
        &dagger;
        &Dagger;
        &circ;
        &permil;
        &Scaron;
        &lsaquo;
        &OElig;
        &#141;
        &#381;
        &#143;
        &#144;
        &lsquo;
        &rsquo;
        &ldquo;
        &rdquo;
        &bull;
        &ndash;
        &mdash;
        &tilde;
        &trade;
        &scaron;
        &rsaquo;
        &oelig;
        &#157;
        &#382;
        &Yuml;
     );