Program Repair Shop

`CreateInput`

Here's the most bizarre result of the two-headed sperm:

      32     &CreateInput(1);
      33     &CreateInput(2);

      63     sub CreateInput {
      64       my $What = shift;
      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       }
      72       if ($I) {
      73           print "Success! \n";
      74       } else {
      75           print "Fail! : $! \n";
      76       }
      77     }