Perl lock Function
This function places an advisory lock on a shared variable, or referenced object contained in THING until the lock goes out of scope.
lock() is a "weak keyword" : this means that if you've defined a function by this name before any calls to it, that function will be called instead.
Following is the simple syntax for this function −
This function does not return any value.