------ Shared Memory Segments --------
key        shmid      owner      perms      bytes      nattch     status
0x00000000 98304      root       600        67108864   20         dest
0x0052e2c1 65537      postgres   600        56         5
0xf102ee77 131074     XXXXXXX    700        65535      0

##</code><code>##

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;

##</code><code>##

0x00000000 393224     root       0          65535      0
0x00000000 425993     root       0          65535      0
0x00000000 458762     root       0          65535      0
0x00000000 491531     root       0          65535      0
0x00000000 524300     root       0          65535      0
0x00000000 557069     root       0          65535      0
0x00000000 589838     root       0          65535      0