use strict;
use warnings;
use Tk;

my $mw = MainWindow -> new();

my $text = $mw -> Text() -> pack();

$text -> tagConfigure('fett', -font => [-weight => 'bold']);
$text -> tagConfigure('gross', -font => [-size => '24']);
$text -> tagConfigure('anders', -font => [-family => 'Courier']);

$text -> insert('end', "Jedes TextWidget kann ");
$text -> insert('end', "fette ", 'fett');
$text -> insert('end', "grosse ", 'gross');
$text -> insert('end', "oder ");
$text -> insert('end', "andere ", 'anders');
$text -> insert('end', "Schrift enthalten");

MainLoop;