our $datalock = MyLock::new; our $debug = 1; #Debug messages