#!perl -w

chdir "..";

for $id ("01".."40") {
   print "$id\n";
   `copy in\\squares.$id.in squares.in`;
   `"C:\\Program Files\\Java\\jdk1.6.0_12\\bin\\java.exe" Main`;
   `move squares.out out\\squares.$id.out`;
   `del squares.in`;
}