DB<1> n main::(shm.pl:10): my $id = shmget( $key, $size, &IPC_CREAT | 0777 ); DB<1> x shmget( $key, $size, &IPC_CREAT | 0777 ); 0 9142327 DB<2> p $key 90 DB<4> p $size 100 DB<5>