$systray_menu = new Win32::GUI::Menu( "SystrayMenu Functions" => "SystrayMenu", "> Info" => "SystrayInfo", "> Exit" => "SystrayExit" ); sub SysTray_Click { my($x, $y) = Win32::GUI::GetCursorPos(); $mw_win32->TrackPopupMenu($systray_menu->{SystrayMenu}, $x, $y); # <- Errorline 0; }