IPC::SysV和IPC::Msg

CODE:

#!/usr/bin/perl
use strict;
use warnings;
use IPC::SysV qw(IPC_PRIVATE S_IRWXU S_IRWXG S_IRWXO IPC_CREAT IPC_NOWAIT);
use IPC::Msg;
my ($key,$msg,$msgtype,$buf);
$key = IPC::SysV::ftok("MSG_PATH",1);
$msg =new IPC::Msg($key,0666|IPC_CREAT) or die "new fail!";
$msgtype = 1;
$msg->snd($msgtype,"abc123456",IPC_NOWAIT) or die "snd fail!";
$msg->rcv($buf,1024) or die "rcv fail!";
print $buf,"\n";