Critical section in perl

Question

Is it possible to enter critical section in perl, to hold other threads and do some calculations in single thread? Like in .NET:

lock(_syncRoot)
{
   // Single-threaded zone
}

Answer 1

Yes, Perl has locks and semaphores. See the documentation on threads for details and examples.

Perl version of your code:

{
    lock($_syncRoot);
    # Single-threaded zone
}