$cc .= "\015";
my $cmd = pack "i/A*", $cc;