[texhax] My texdoctk can't work

[ÎÀ»ª]

I want to use texdoctk, but I recieve the error message:

Use of uninitialized value in string eq at /usr/lib/perl5/5.8.1/Tk.pm line 24.
Bareword "MainLoop" not allowed while "strict subs" in use at /usr/tetex/bin/texdoctk line 1545.
Bareword "MainLoop" not allowed while "strict subs" in use at /usr/tetex/bin/texdoctk line 190.
Execution of /usr/tetex/bin/texdoctk aborted due to compilation errors.

I am using redhat fedora core 1 and tetex 2.0.2
----------------------------------------------
Öǻ۴óÌôÕ½¾ÍÔڵͼ۶ᱦ 
http://super.21cn.com/ 
ÌåÑéÁíÀàÔ¼»á£¬¸ÐÊܱðÑùÀËÂþ 
http://y.21cn.com/club/ 
СÁéͨ¶ÌÐÅÖÐÐÄ£¬¶ÌÐÅ÷ÈÁ¦ÎÞ¼« 
http://pas.21cn.com/ 
21CNÉÌÎñÓÊÏäÎåÒ»8ÕÛÓŻݣ¬·áºñ½±Æ·µÈÄãÄà 
http://mail.21cn.com/huodong/0405/business/detail.html 
ÆóÒµÓÊÏäÏÄÈÕ´óÓŻݣ¬ÊÖ»ú¡¢MP3¼´Ê±ËÍ 
http://mail.21cn.com/huodong/0405/corpmail/