Select Code to Download

use Tcl::Tk qw(:perlTk);
$mw = MainWindow->new;
...
$edt = $mw->Text()->pack;
$edt->insert('end',"\x{2456}\x{2457}");
MainLoop;