sub proclock {
 
local($filelock) = @_;

$timeout = 0;
while (-e "security/$filelock") {
   sleep 1;
   $timeout = $timeout + 1;
   if ($timeout > 10) {return(1);}
}
$rc = `rm -f security/$filelock;touch security/$filelock`;
return($rc/256);
 
}
1;