use utf8;
my $€ = 1;
print $€;