Select Code to Download

use IPC::Shareable;
use IPC::SysV qw(ftok);
...
$ftok = ftok($0);
printf("ftok=$ftok (0x%08X)\n", $ftok);
$tied = tie %Sess, 'IPC::Shareable', {key => $ftok, mode => 0666, crea
+te=>"yes"};