#!/usr/bin/perl -l

use strict;
use warnings;
use Encode qw(encode encode_utf8);

$| = 1;

my $str = "Çirçös";
$str = encode_utf8($str);
print $str;

my $str1 = "Çirçös—";
$str1 = encode('UTF-8', $str1);
binmode STDOUT, ":encoding(UTF-8)";
print $str1;