#! /usr/bin/perl
use warnings;
use strict;

use Tk;
use Tk::ROText;

my $mw = 'MainWindow'->new;

my $t = $mw->ROText->pack;
$t->Contents('Just another Tk hacker,');

MainLoop();