#!/usr/bin/perl -l

use strict;
use warnings;
use IPC::SysV qw(IPC_CREAT IPC_RMID);

$| = 1;

my $key  = int( rand(900) ) + 5;
my $size = 100;

my $id = shmget( $key, $size, &IPC_CREAT | 0777 );
print "creating shm key $id";

print "flushing shm key $id";
shmctl( $id, IPC_RMID, 1 );