Select Code to Download

my $lock : shared;
{
lock($lock)
...do something that only 1 thread at a time should do...
}

use threads;
use threads::shared;
...
        sleep 3;
    }
}