Perl: threads + Tk = segfault

[keksinat0r]

oh, hab grad gemerkt dass ich im falschen Forum gepostet hab :-/
Bei Bedarf einfach verschieben ^^

Folgender Code

use 5.008008;
use strict;
use warnings FATAL => 'all';
use threads;
use Tk;

threads -> create(sub{ print "hallo 1\n"; }) -> join();

MainWindow -> new();
&Tk::MainLoop;

threads -> create(sub{ print "hallo 2\n"; }) -> join();
threads -> create(sub{ print "hallo 3\n"; }) -> join();

spuckt folgendes aus:

hallo 1
hallo 2
hallo 3
Segmentation fault

Wie man sieht funktioniert alles wunderbar.
Der erste Thread schreibt ein Hallo in die Konsole,
dann wird das Tk-Fenster erstellt, und sobald man es schliesst
meldensich die 2 anderen Threads.

Aber warum das "Segmentation fault" am ende?

Selbst mit "use warnings FATAL -> 'all'" bekomme ich keinerlei Fehlermeldungen warum dieses segfault da steht, und es funktioniert ja schliesslich alles...

Debian Sarge
Perl 5.8.8 / 5.10.0

Jemand ne Idee?
- Keks