Help for this page

Select Code to Download


  1. or download this
        $thr = threads->new(\&sub1, "THREAD1 :");
    ...
    @ReturnData = $thr->join; 
    ...
  2. or download this
        ($thr) = threads->new(\&sub1, "THREAD1 :");
    ...
    @ReturnData = $thr->join; 
    ...
  3. or download this
              {
            lock $foo;
            $foo=0;
          }
  4. or download this
        print " Final value :$foo\n";