Select Code to Download

use Tk;

...
})->pack(qw/-side left/);

MainLoop;

   if ($text->index('end - 1c') > 1) { ... }