Tk::Error: Write row failed: 
 main::getData at person_list.pl line 57
 main::__ANON__ at person_list.pl line 32
 Tk callback for .button
 Tk::__ANON__ at /Library/Perl/5.8.6/darwin-thread-multi-2level/Tk.pm line 247
 Tk::Button::butUp at /Library/Perl/5.8.6/darwin-thread-multi-2level/Tk/Button.pm line 111
 <ButtonRelease-1>
 (command bound to event)