my $box = $mw->Toplevel;
my $message = $box->ROText->pack;
$message->insert(end => "Hey there!  Gotta go!");
$box->after(3000, sub { shift->destroy });