Select Code to Download

use threads::shared;
...
...
    lock $sem;
    print ...;
}

use threads::shared;

...
...

else twarnf( "%u %s\n", $this, $that );