sub Lock {
 local ($lockname) = @_;
 local ($endtime);
 $endtime = 15;
 $endtime = time + $endtime;
 while (-e $lockname && time < $endtime) {
 open (LOCKFILE, ">$lockname");
}