use strict;
use IPC::SysV qw(IPC_PRIVATE S_IRUSR S_IWUSR SHM_RDONLY);
use IPC::SharedMem;
use Class::Struct;

my $key = '0xf102ee77';
my $shm = IPC::SharedMem->new(${key},65535,SHM_RDONLY);
&fl_die("Could not open shared memory segment.") unless defined(${shm});
my $stat = ${shm}->stat;
&fl_die("Could not stat shared memory segment.") unless defined(${stat});
my $concount = ${stat}->nattch;