...
 my $systray_menu = new Win32::GUI::Menu(
       "SystrayMenu Functions" => "SystrayMenu",
       #"Go Back!up",
       "> Info"       => "Systray_info",
       "> Dienst"     =>"",
       ">> Starten"    => "Systray_start",
       ">> Stoppen"   => "Systray_stop",
       ">> Restart"   => "Systray_restart",
       ">> Pausieren" => "Systray_pause",
       "> Exit"       => "SystrayExit",
   );
Win32::GUI::Dialog();
Win32::GUI::Show($hwnd);



sub systray_RightClick {
   my($x, $y) = Win32::GUI::GetCursorPos();
   $main->TrackPopupMenu($systray_menu->{SystrayMenu}, $x, $y-50);
}
...