Select Code to Download

#!/usr/bin/perl 
use utf8;
...

$TryToReadLockVar->join();

the lock var default value is {default}
try to modify the Lock var {1} time