use strict;
use warnings;
use charnames ':full';

my $command = "\N{STX}H\N{EOT}";
my $reply   = "\N{STX}XTM20\N{EOT}";