#!/usr/bin/perl
use Tk; use Tk::ROText;
my $mw = MainWindow->new();
my $rot = $mw->ROText;
$rot->pack;
$rot->insert('end','foo ');
$rot->insert('end','the bar',['mytag','sel']);
$rot->insert('end',' baz');
MainLoop;