#!/usr/bin/perl -l

use strict;
use IPC::SysV qw(ftok IPC_CREAT S_IRWXU);

my $key = ftok("/tmp/sometest.pl", 'A');
print my $id = msgget($key, IPC_CREAT | S_IRWXU );