sub lock {
 
   $lockfile = "/var/lock/lockfile";
   $locklog = "/var/lock/lock.log";
   $program = @_[0];
 
#   print "Waiting for lock file...\n";
 
   open  (LOCK,"$lockfile");flock(LOCK,2);
   open  (LOG,">>$locklog");
   print  LOG "Lock  $program ".`/usr/local/bin/date`;
   close (LOG);
}
1;