$ perl -MHTML::Entities=encode_entities -wle 'print encode_entities(chr hex "20AC")'
€