my $euro = "\N{EURO SIGN}"; print ord($euro),"\n"