请教:GuiTest中GetMenu的问题 谢谢

请教:GuiTest中GetMenu的问题 谢谢
最近学习使用PERL进行GUI的自动化测试
使用Win32::GuiTest模块儿
但是使用GetMenu函数的时候出现问题
代码:
#! bin\perl
use Win32::API;
use Win32::GuiTest qw(:ALL);

my $MyBox;
if (!($MyBox = FindWindowLike(undef,"<mybox>"))){
#判断软件是否已经打开
print ("软件没有打开,将会自动打开软件!!\n");
system("start F:/myBox\mybox.exe");
}
SetForegroundWindow($MyBox);
my $menu = GetMenu(GetForegroundWindow());
print "Menu: $menu\n";


系统老是报错:
Undefined subroutine &main::GetMenu called at E:\myBox.pl line 35, <DATA> line 164.

请问是怎么回事情!