my $steps = shift( @ARGV ) || 64;

my $puzzle_board = create_board();
solve ($puzzle_board);
print_board ($puzzle_board);
...
# Change this number to solve more or less of the puzzle
    while ( $move < $steps ) {