use utf8;
use Encode;

$\ = "\n";
my $unicodeScalar = "Je suis une chaîne accentuée là où il faut.";
my $cmdLineArg = $ARGV[0];
my $stdInLine = <STDIN>;

print '['.Encode::is_utf8($unicodeScalar).'] '.$unicodeScalar;
print $unicodeScalar;
print '['.Encode::is_utf8($cmdLineArg).'] '.$cmdLineArg;
print '['.Encode::is_utf8($stdInLine).'] '.$stdInLine;

##</code><code>##

$ perl -CSDA t.pl `cat accents_utf8`
éè
[1] Je suis une cha&#9618;ne accentu&#9618;e l&#9618; o&#9618; il faut.
Je suis une cha&#9618;ne accentu&#9618;e l&#9618; o&#9618; il faut.
[] éèàùôî
[] éè

##</code><code>##

perl -CSDA t.pl `cat accents_utf8`
éè
[1] Je suis une chaîne accentuée là où il faut.
Je suis une chaîne accentuée là où il faut.
[1] éèà ùôî
[1] éè

##</code><code>##

$ perl t.pl `cat accents_utf8`
éè
[1] Je suis une cha&#9618;ne accentu&#9618;e l&#9618; o&#9618; il faut.
Je suis une cha&#9618;ne accentu&#9618;e l&#9618; o&#9618; il faut.
[] éèàùôî
[] éè

##</code><code>##

$ perl t.pl `cat accents_utf8`
éè
[1] Je suis une chaîne accentuée là où il faut.
Je suis une chaîne accentuée là où il faut.
[] éèà ùôî
[] éè