readv(3, [{"_GTK_LOAD_ICONTHEMES", 20}, {"", 0}], 2) = 20
select(4, [3], [], [], {294, 912170})   = 1 (in [3], left {294, 721000})
ioctl(3, FIONREAD, [32])                = 0
read(3, "\241 \364\r\1\0\340\1.\1\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"..., 32) = 32
--- SIGSEGV (Segmentation fault) @ 0 (0) ---
+++ killed by SIGSEGV +++              

perl -MTk -e 'tkinit;MainLoop'

perl -MTk -e 'tkinit;MainLoop'

gdb perl /path/to/tktimex

gdb perl core.<pid>

tina@lugosi:~$ cat mainloop 
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
tkinit;
MainLoop;
tina@lugosi:~$ gdb perl mainloop 
GNU gdb 6.3-debian
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "x86_64-linux-gnu"...(no debugging symbols found)
Using host libthread_db library "/lib/libthread_db.so.1".

"/home/tina/mainloop" is not a core dump: File format not recognized
(gdb) 

gdb perl core.<pid>

gdb perl
set args skriptname
run
.... und nach dem Segmentation Fault ...
bt

gdb perl core.<pid>

gdb core.pid