How to display momentary messagebox that disappears?

[sarta]

Using tk on linux, I want to display a messagebox for a second, then have it disappear without human interaction, either by a 1 second timeout or by closing the window in my perl script.

How can I do that? Here is what I have now (since it loops o MainLoop() I don't know how to timeout or close it inside the program)

use Tk;
$mw = MainWindow->new;
$mw->Button( -text => 'Hello World', -command => sub{exit} )->pack;
$mw-popup;
MainLoop;

 

[Bong]

I don't speak PERL, but in Tcl I would think
after 1000 "destroy <name of window to close>"

_________________
Bob Rashkin