use Win32::GUI ();

my $window = Win32::GUI::Window->new();
my $menu = Win32::GUI::Menu->new(-name => "TestMenu");
$menu->{"TestMenu"}->AddMenuItem(
-item => 0,
-id => 14,
-text => "Exit",
-name => "randomName",
-onClick => sub { exit; },
);
#$window->SetForegroundWindow();
$window->TrackPopupMenu($menu->{"TestMenu"}, 20, 20);
#$window->PostMessage("Msg", 0, 0);

#$window->TrackPopupMenu(Win32::GUI::Menu->new(-name => "dummyMenu"), 20, 20);

while (1) {
sleep(1);
}