sub checklock {
 
local($filelock) = @_;
 
$timeout = 0;
while (-e "security/$filelock") {
   sleep 1;
   $timeout = $timeout + 1;
   if ($timeout > 10) {return(1);}
}
return(0);
}
1;