Program Repair Shop

`CreateInput`

      65       if ($What == 1) {
      66           print "Creating DIR: ",$InputDIR1.$NextOut,"\n";
      67           $I = mkdir ($InputDIR1.$NextOut,0777);
      68       } else {
      69           print "Creating DIR: ",$InputDIR2.$NextOut,"\n";
      70           $I = mkdir ($InputDIR2.$NextOut,0777);
      71       }

Why one function? Why not two functions?
Or no functions?

continued...