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

sub welcome {
   print "hallo\n",
}