#!/usr/bin/perl 

use threads;
use threads::shared;

my $loglock :shared ; 

open(LOG, ">/usr/local/lease.log");

sub ilog{
 my $text = shift; 
 lock $loglock; 
 print LOG $text;  
}


## Start defining threads from here on