my $systray_menu = new Win32::GUI::Menu(
                                         "SystrayMenu Functions" => "SystrayMenu",
                                         ">-" => "",
                                         "> Mein Status" => "",
                                         ">>  Online" => 'set_status(1)',
                                         ">>  Beschäftigt" => 'set_status_Click(2)',
                                         ">>  Bin gleich zurück" => 'set_status(3)',
                                         ">>  Abwesend" => 'set_status(4)',
                                         ">>  Mittagspause" => 'set_status(5)',
                                         "> Abmelden" => { -name => 'open_main', -state => 1 },
                                         ">-" => "",
                                         "> Öffnen" => { -name => 'open_main', -bold=>1 },
                                         "> Beenden" => 'quit'
                                         );
sub systray_RightClick {
                       my($x, $y) = Win32::GUI::GetCursorPos();
                       $config{Win32Window}->TrackPopupMenu($systray_menu->{SystrayMenu},   $x-50, $y);
   
                       }
sub set_status(1)_Click
        {
         $systray_menu->{quit}->Change(-text => "huhu");
        }