my $packet_length = 11;
my $unpack_str = 'A' x $packet_length;
my $s = pack("C11", (65..75));

print join(' : ', unpack($unpack_str, $s));