use Tk;
require Tk::StayOnTop;
require Tk::MatchEntry;

$desc = "";
@opts = ("test","one","two","three");

$window = MainWindow->new;
$window->Button(-text => "Button")->grid(-row=>1,-column=>0);
$Entry = $window->MatchEntry(-textvariable => \$desc)->grid(-row=>0,-column=>0);

$Entry->choices(\@opts);

#$window->after(1000,sub {$window->attributes(-topmost => 1)});
$window->after(1000,sub {$window->stayOnTop()});
MainLoop;