关于TK调试的一个问题

关于TK调试的一个问题
作者提供的相关的附件（大小：3 K）

调试信息为：

Net::SMTP>>> Net::SMTP(2.29)
Net::SMTP>>> Net::Cmd(2.26)
Net::SMTP>>> Exporter(5.58)
Net::SMTP>>> IO::Socket::INET(1.27)
Net::SMTP>>> IO::Socket(1.28)
Net::SMTP>>> IO::Handle(1.24)
Net::SMTP=GLOB(0x32da24c)<<< 220 KAV6 Smtp Proxy Server Ready
Net::SMTP=GLOB(0x32da24c)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x32da24c)<<< 250-smtp9
Net::SMTP=GLOB(0x32da24c)<<< 250-PIPELINING
Net::SMTP=GLOB(0x32da24c)<<< 250-AUTH LOGIN PLAIN NTLM
Net::SMTP=GLOB(0x32da24c)<<< 250-AUTH=LOGIN PLAIN NTLM
Net::SMTP=GLOB(0x32da24c)<<< 250 8BITMIME
Tk::Error: wrong # args: should be ".frame1.text get index1 ?index2 ...?" at C:/Perl/site/lib/Tk.pm line 247.
Tk callback for .frame1.text
Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 247
Tk::Derived::Delegate at C:/Perl/site/lib/Tk/Derived.pm line 469
Tk::Widget::__ANON__ at C:/Perl/site/lib/Tk/Widget.pm line 322
main::send1 at C:\DOCUME~1\winxp\LOCALS~1\Temp\dirE5.tmp\sendmail.pl line 234
main::link_send at C:\DOCUME~1\winxp\LOCALS~1\Temp\dirE5.tmp\sendmail.pl line 211
Tk callback for .frame4.button
Tk::__ANON__ at C:/Perl/site/lib/Tk.pm line 247
Tk::Button::butUp at C:/Perl/site/lib/Tk/Button.pm line 111
<ButtonRelease-1>
(command bound to event)

有谁能看出来问题出在那里?