Select Code to Download

     my $mutex = $mutexes{$k} ||= do { my $mutex : shared; \$mutex };

my $mutex = $mutexes{$k};
if (! defined $mutex) {
...
          $mutex = \$new_mutex
    }
}