refresh von perl/tk widgets

[hasp]

Hallo,
ein kleines problem ich habe ein Entry der Form

my $content = "TEST";
my $name = $frame -> Entry(-textvariable => $content) -> pack ( -side => "left" );
...
MainLoop;

sub refresh {
...
$content = "NEUER TEST";

JETZT UND HIER -> refresh ...

...
}

Danke
hasp