package foo;
...
our $enqmsg = pack ("C*", 0x01, 0x55, 0x22 ...);