pack 'n', length($msg)
[download]

(Replace n with N or S or whatever depending on what order (if any) you need the two bytes in