require "ipc.ph";
require "sem.ph";
$semop = pack("s*", $semnum, -1, 0);
die "Semaphore trouble: $!\n" unless semop($semid, $semop);
