#!/usr/bin/perl

use HTML::Entities;
$string="€";
$encoded = encode_entities_numeric($string, '<>&"');
print $encoded;