or download this
if(@ARGV<4) {print "\nUse: SIZE START_X START_Y [0,1]" and exit;}
our ($N,$X0,$Y0,$VERBOSE) = @ARGV ;
our ($MOVES,@moves,@board)= (0,([-2,-1], [-1,-2], [-2 ,1],[-1 ,2], [2
+,-1], [1, -2],[2, 1],[1, 2]),());
...
push @board, [(0)x $N] for(1..$N);
for my $i (0..$N-1) { $board[$i][$_] = init($i,$_) for (0..$N-1);}
} }