$ perl -Mcharnames=:full -CS -wle 'print "\N{EURO SIGN}"'