#!/usr/bin/perl -w
use utf8;

# without the encoding layer
open (my $fh1, ">", "test-normal");
# with the encoding layer
open (my $fh2, ">:utf8", "test-utf8");

# ASCII data
# encodes the same in UTF-8 or Latin-1 encodings
my $ascdata = "aei\n";
print $fh1 $ascdata;
print $fh2 $ascdata;

# accented a e i
my $l1data = "\xe1\xe9\xed\n";

# these characters *can* be encoded in Latin-1 or in UTF-8
# (though differently for each)
print $fh1 $l1data;
print $fh2 $l1data;

# U+0641 ARABIC LETTER FEH
my $u8data = "\x{0641}\n";

# "Arabic-Feh" can't be encoded in Latin-1, can be encoded in UTF-8
print $fh1 $u8data; # <--THIS LINE GENERATES WARNING
print $fh2 $u8data;


##</code><code>##

[jeremy@serpent pm-test]$ perl wide-char.pl
Wide character in print at wide-char.pl line 27.
[jeremy@serpent pm-test]$ od -t x1 test-normal 
0000000 61 65 69 0a e1 e9 ed 0a d9 81 0a
0000013
[jeremy@serpent pm-test]$ od -t x1 test-utf8
0000000 61 65 69 0a c3 a1 c3 a9 c3 ad 0a d9 81 0a
0000016
[jeremy@serpent pm-test]$