Select Code to Download

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

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

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