sub systray_RightClick { 
   my $systray_menu = new Win32::GUI::Menu( 
       "SystrayMenu Functions" =>"SystrayMenu", 
       "> hier klicken" => 'test' 
   ); 
   my($x, $y) = Win32::GUI::GetCursorPos(); 
   $win32->TrackPopupMenu($systray_menu->{SystrayMenu},   $x, $y-50); 
}