"\x{00e8}" does not map to iso-8859-2 at ../utf_test.pl line 18.

##</code><code>##

#!/usr/bin/perl -w
#

use strict;
use utf8;
use Term::ReadLine;

my $locale_encoding = 'iso-8859-2';
binmode(STDIN, ":encoding($locale_encoding)");
binmode(STDOUT, ":encoding($locale_encoding)");

my $term   = new Term::ReadLine 'test CLI', *STDIN, *STDOUT;
my $prompt = "test> ";

while( defined ($_ = $term->readline($prompt)) ) {
    if($_) {
	last if $_ =~ /^\s*quit/i;
	print $_, "\n";
    }
}

exit 0;