#!perl

my $file = "hanul.txt";

lock($file);
open FILE, ">$file";
print FILE "you're locking...\n";
close FILE;
unlock($file);

# LoCk
sub lock{
	my $lFile = shift;
	my $LockFile = "$lFile.lock";
	my $EndTime = time + 45;
	while (-e $LockFile && time < $EndTime) { }
	if (!open (LOCK,">$LockFile")){
		return 0;
	}
	else{
		chmod 0666, $LockFile;
		$locked = 'Y';
	}
}

# uNLocK
sub unlock 
{
    my $lFile = shift;
	my $LockFile;
	if ($locked eq 'Y'){
		$LockFile = "$lFile.lock";
		close (LOCK);
		if (-e $LockFile) { 
			unlink ($LockFile);
		}
		$locked = 'N';
	}
}