Select Code to Download

#!/usr/bin/perl
use strict;
...
lock_store($x, 'k.dat') or die "Can't save k.dat: $!";
$sem->unlock;
print $q->header;

package Sem;

...

1;