STAGE_DIM: if(not(open(process_lock, "+>$proc_lock"))){
					goto STAGE_DIM;
					sleep 1;
				}
				$lock_val = <process_lock>;  #`cat $proc_lock`;
				print "Value=*$lock_val*\n";
				if( $lock_val == 1) {
					close(process_lock);
					sleep 1;
					goto STAGE_DIM;
				}
				else {
					...
				}