Tk::Error: not a Tk object
 Tk::die_with_trace at C:/Perl/lib/Tk.pm line 252
 Tk::__ANON__ at ts_telnet_user_info.pl line 369
 main::action at C:/Perl/lib/Tk.pm line 252
 (eval) at C:/Perl/lib/Tk.pm line 252
 Tk::__ANON__ at C:/Perl/lib/Tk/Button.pm line 111
 Tk::Button::butUp at C:/Perl/lib/Tk.pm line 411
 (eval) at C:/Perl/lib/Tk.pm line 411
 Tk::MainLoop at ts_telnet_user_info.pl line 315
 Tk callback for .toplevel.button
 Tk::__ANON__ at C:/Perl/lib/Tk.pm line 252
 Tk::Button::butUp at C:/Perl/lib/Tk/Button.pm line 111
 <ButtonRelease-1>
 (command bound to event)