跪求perl操作注册表的问题

函数如下：取一个注册表上的值
如果些函数放在pl文件中可以正常运行，放在pm并在our @EXPORT 中导出后无法运行。
运行到$HKEY_LOCAL_MACHINE->Open($keyPath,$hKey)说没有Open这个方法。查看Win32::Registry;
发现确实没有Open的导出方法，请教如何设置才能让此函数能在pm中有用
sub GetCommonFileDir
{
my $keyPath = "SOFTWARE\\Microsoft\\Windows\\CurrentVersion";
my $hKey;
$HKEY_LOCAL_MACHINE->Open($keyPath,$hKey) || die $!;
my $keyName = "CommonFilesDir";
my $keyValue;
$hKey->QueryValueEx($keyName, REG_SZ,$keyValue);
$hKey->Close(); 
return $keyValue;
}

看文档——[obsolete, use Win32::TieRegistry]