#!/usr/bin/perl
use strict;
use warnings;
use PerlIO::encoding;
use Encode;
use Data::Dumper;

my $a = "\xe2\x82\xac"; #Euro Sign in UTF-8
my $euro_in_unicode = decode("UTF-8", $a);
print Dumper(\$euro_in_unicode), "\n";

open my $fh, ">", "output.txt" or die $!;
{
   local $PerlIO::encoding::fallback = Encode::FB_DEFAULT;
   binmode $fh, ":encoding(latin1)";
}
print $fh $euro_in_unicode, "\n";
close $fh;

##</code><code>##

Close with partial character at am85.pl line 18.
Close with partial character.