in reply to Tk::Table query??
... my $textVar = "Initial text"; my $e = $top->Entry( -width => '10', -textvar => \$textVar ); ... [download]