use strict;

my $cc = "whatever";
# Pack a length and the cc string into a cmd field.
$cc .= "\015";
my $index = length($cc);
my $cmd = pack 'iZ10',$index,$cc;