my $msg = pack('C'.@s, @s);