...
my $textVar = "Initial text";
my $e = $top->Entry( -width => '10', -textvar => \$textVar );
...