Program received signal SIGSEGV, Segmentation fault.
[Switching to Thread 46912506985408 (LWP 3367)]
0x00002aaaabab05e6 in Tk_HandleEvent ()
   from /usr/local/lib/perl/5.8.7/auto/Tk/Tk.so
(gdb) bt
#0  0x00002aaaabab05e6 in Tk_HandleEvent ()
   from /usr/local/lib/perl/5.8.7/auto/Tk/Tk.so
#1  0x00002aaaabab0c9c in WindowEventProc ()
   from /usr/local/lib/perl/5.8.7/auto/Tk/Tk.so
#2  0x00002aaaab732b8d in Tcl_ServiceEvent ()
   from /usr/local/lib/perl/5.8.7/auto/Tk/Event/Event.so
#3  0x00002aaaab732e02 in Tcl_DoOneEvent ()
   from /usr/local/lib/perl/5.8.7/auto/Tk/Event/Event.so
#4  0x00002aaaaba7ebfb in XS_Tk_DoOneEvent ()
   from /usr/local/lib/perl/5.8.7/auto/Tk/Tk.so
#5  0x00002aaaaac58655 in Perl_pp_entersub () from /usr/lib/libperl.so.5.8
#6  0x00002aaaaac50b3e in Perl_runops_standard () from /usr/lib/libperl.so.5.8
#7  0x00002aaaaabf8bcc in perl_run () from /usr/lib/libperl.so.5.8
#8  0x000000000040196c in main ()