Select Code to Download

  my $var = do {
    my $temp1 = func1($a);
    my $temp2 = func2(++$a);
    $temp1 + $temp2;
  };

  my $var = func1($a) + func2($a + 1);

  my $var = do {
    my ($temp1, $temp2);
...
    $thr2->join;
    $temp1 + $temp2
  };

  AUTOTHREADSUBEXPRS {
    $var = func1($a) + func2($a+1);
  }

  use threadedsubexprs;
  my $var = func1($a) + func2($a+1);