Select Code to Download

use strict;
use threads;
use threads::shared;
...
genSharedLower(\%all_shary_for_subs);
print "Yey\n" if is_shared( $all_shary_for_subs{'%y'});
lockit( \%all_shary_for_subs) ;

C:\Documents and Settings\nd250020\Desktop\dev>perl test.pl
Yey
Yey
Done!