sub systray_RightClick {     my $systray_menu = new Win32::GUI::Menu(         "SystrayMenu Functions" =>"SystrayMenu",         "> Öffnen"       => "open_main",     );     my($x, $y) = Win32::GUI::GetCursorPos();     $config{Win32Window}->TrackPopupMenu($systray_menu->{SystrayMenu}, $x, $y-50); } sub open_main {     $config{MainWindow}->deiconify;     $config{MainWindow}->raise; };