Help for this page
#!/usr/bin/perl -w use threads; ... } }
#!/usr/bin/perl use threads; ... cond_broadcast($a); }