Help for this page

Select Code to Download


  1. or download this
    use threads;

...
my $val = $threads->join();
print "The eval returned $val\n";
print "The value of \$x after eval is $x\n";
  2. or download this
    The value of $x before eval is 1
The eval returned 3
The value of $x after eval is 1