or download this
$file_shmem = "/tmp/IPC/shared_memory1";
$size_shmem = 18640;
...
$idshm = shmget( $ipckey, $size_shmem, 0666 ) || die "\n Creation o
+f shared memory failed $! \n";
print "IPC-SHMEM: id $idshm \n";
shmread( $idshm, $data_shmem, 0, $size_shmem ) || warn "\n\n Error
+reading shared-memory: $! \n";