Select Code to Download

This is perl, v5.8.0 built for i386-linux-thread-multi
$ uname -r => 2.4.21-37.EL
Module id = IPC::Msg CPAN_VERSION 1.00

#!/usr/bin/perl

...
  # exit SEND if $msg->full(); # PSEUDO-CODE ONLY
  $msg->snd(1, pack("L a*", 1, "Hello World!"));
}

$ ipcs -q
------ Message Queues --------
key        msqid      owner      perms      used-bytes   messages
0x00000000 163844     u92        777        16384        1024