Select Code to Download

use strict;
use warnings;
...
my $string;
sysread(PLP, $string, 100);
printf("0x%02x ", ord($_)) for (split //, $string);

0x0d 0x00 0x0d 0x00 0x0a 0x00

use strict;
use warnings;
...
my $string;
sysread(PLP, $string, 100);
printf("0x%02x ", ord($_)) for (split //, $string);

0x0d 0x00 0x0d 0x0a 0x00