Select Code to Download

use strict;
use warnings;
...
    print "$x: lock released\n";
    return;
}

0: lock acquired
1: lock acquired
...
7: lock released
8: lock released
9: lock released