#!/usr/bin/perl -w
use strict;
use HTML::Entities qw(%char2entity %entity2char);
foreach (keys %char2entity)
{
  print "$_ = $char2entity{$_}\n";
}
foreach (keys %entity2char)
{
  print "$_ = $entity2char{$_}\n";
}