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

##</code><code>##

printmsg ($foo::enqmsg, ...);

##</code><code>##

@msglist=($foo::enqmsg,...);