use Tk;
my $main = tkinit;     
my $value = "Foo!";
my $href = {bar=>baz};    
$main->Label(-textvariable=>\$value)->pack;
$main->after(5000,sub{$value=$$href{bar}; $main->update;});
$main->MainLoop();