The perl program below fails with error message : permission denied;

      1 use IPC::SysV qw( IPC_PRIVATE
      2                   IPC_CREAT
      3                   S_IRWXU
      4                   S_IRWXG
      5                   S_IRWXO );
      6 use IPC::Msg;
      7
      8 $msg = new IPC::Msg( 123456, IPC_CREAT | S_IRWXU | S_IRWXG |
S_IRWXO ) or
      9    die "New IPC::Msg: $!\n";
     10 $msg->snd( 1, "toto");
     11

Running the program by strace, shows that it is msgget that returns the
error.
No message queues exist at the time of execution. The program functions
with any key
different from 123456. 
If you need more info do not hesitate to contact me.


Kind regards

Paul