#! /usr/bin/perl -w

use strict;
use Tk;
use Tk::Table;

my $m = MainWindow->new;

my $t = $m->Table(-rows => 1, -columns => 1, -scrollbars => '')->pack;
my $w = $t->Entry;  # Here is our entry widget

$t->put(1,1,$w);    # Place it in the table

$w->insert('end', 'initial text');  # Insert "initial text"

MainLoop;