use strict;
use warnings;
use charnames ':full';
open( my $fh, ">:raw:encoding(ucs2le):crlf", "test.plp" );
print $fh "\N{CARRIAGE RETURN}\N{LINE FEED}";
close $fh;
#test
open(PLP,"<","test.plp");
my $string;
sysread(PLP, $string, 100);
printf("0x%02x ", ord($_)) for (split //, $string);
####
0x0d 0x00 0x0d 0x00 0x0a 0x00
##
##
use strict;
use warnings;
use charnames ':full';
open( my $fh, ">:encoding(ucs2le):crlf", "test.plp" );
print $fh "\N{CARRIAGE RETURN}\N{LINE FEED}";
close $fh;
#test
open(PLP,"<","test.plp");
my $string;
sysread(PLP, $string, 100);
printf("0x%02x ", ord($_)) for (split //, $string);
##
##
0x0d 0x00 0x0d 0x0a 0x00