use strict; use warnings; use charnames qw(:full); binmode STDOUT, ":encoding(UTF-8)"; print "Euro: \N{EURO SIGN}\n"