Select Code to Download

$fill_x->configure(-command => sub {
    $_->configure(-state => 'disabled') for $fill_x, $fill_y;
...
        }
    });
});

{
    my ($line, $char); BEGIN { ($line, $char) = (1, 0) }
...
        $text->see("$line.$char");
    }
}