Select Code to Download

      open TEST, "perl $d $dir\\ControlC\\ControlC.pl $block $job \$re
+slist=$reslist \$timeout=10 $retry |";

...
         }
      }
      close TEST;