$file_shmem = "/tmp/IPC/shared_memory1";
 $size_shmem = 18640;
  open( F, "./ftok $file_shmem 1 |" );
  $s1 = <F>;
  close F;
  chomp $s1;
  $ipckey = "0x$s1";
  print "IPC-KEY of ($file_shmem) is $ipckey \n";
  $idshm = shmget( $ipckey, $size_shmem, 0666  ) || die "\n Creation of 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";