#!/usr/local/bin/perl -w
use Tk;
my $mw = MainWindow->new;
my $t = $mw->Scrolled('Text');
$t->pack(-expand => 1, -fill => 'both');
tie *TEXT,Tk::Text,$t->Subwidget('text');
print TEXT "Hi there\n";
seek(DATA,0,0);
while (<DATA>)
{
print TEXT;
}
MainLoop;
__DATA__