Select Code to Download

use strict;
use warnings;
...
    $txt->tagConfigure($tag, -font => $textfont, -background => $bg);
    $txt->insert("end", "$text\n", $tag);
}