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, create=>"yes"};