my $packed;
my $n =1000000-1;
my $offset = $n*4; 
my $success = shmread($id, $packed, $offset, 4)