Select Code to Download

open my $fh, ">", "output.txt" or die $!;
print $fh encode('latin-1', $euro_in_unicode), "\n";
close $fh;

#!/usr/bin/perl
use strict;
...
}
print $fh "$euro_in_unicode\n";
close $fh;