semaforer i perl

[sslug@sslug]

Jeg er ved at skrive nogle scripts som skal dele en hukommelsesblok. Jeg
bruger IPC::SysV til opsætning af hukommelsen og det virker fint. Nu vil
jeg gerne have en binær semafor til at sikre læsning/skrivning i
hukommelsen. Jeg har forsøgt mig med semget - men kan ikke rigtig få det
til at virke - jeg har opnået at få fejlmeddelsen 'No such file or
directory' for følgende stump kode:

#!/usr/bin/perl

$SEM_KEY = 1234;
$sem_id = semget($SEM_KEY,0,0) or die "semget: $!\n";
print "ID: $sem_id\n";


Hvad gør jeg galt???

/Jacob