if (-e '/export/home2/medlir/sxc/cookies.dat') {
		print '<P>';
		LOCKLOOP: for ($lockloop = 1; $lockloop < 17; $lockloop++) {
			print 'Attempting to get get lock [';
			if ($lockloop < 10) { print '0'.$lockloop; } else { print $lockloop; }
			print '/16]...';
			if (-e '/export/home2/medlir/sxc/cookies.dat') {
				if ($lockloop == 16) {
					print ' failed! Exiting...<BR>';
					$lock = 1;
					last LOCKLOOP;
				} 
				else { 
					print ' failed! Trying again in 15 seconds';
					$lock = 1;
					for ($sleep = 0; $sleep < 15; $sleep++) { sleep 1;print '.'; }
					print ' ready!<BR>';
				}
			}
			else {
				print' got it!<BR>';
				$lock = 0;
				last LOCKLOOP;
			}
		}
		print'</P>';
		if ($lock == 1) {
			&footer;
			exit;
		}
	}