sub randproc {
   srand (time|$$);
   $proc = int(100000000*rand);
   while ( -e "security/$proc.lock") {
   $proc = int(100000000*rand);}
   $rc = `echo lock > security/$proc.lock`;
}
1;