Perl Fork/Threads issue in windows with tk splashscreen

use LWP::Simple;
use Time::HiRes qw( gettimeofday tv_interval );
use Win32;
use strict;
use Tk;
use Tk::Splashscreen;
use Tk::Animation;
use threads;
 
 
my $file = "http://www.bio.sdsu.edu/Pub/lewison/conservation/uploads/Main/hammernoggin.jpg";
my $filesize = 1112264;
 
my @kbps;
my @downTime;
 
 
 
 
threads->create(\&speedTest())->detach;
 
&doStuff;
 
 
 
 
sub speedTest
{
 
 
   for(my $i=0;$i < 3; $i++)
   {
 
      my $t0 = [gettimeofday];
 
      my $content = get($file);
 
      die "Couldn't get it!" unless defined $content;
 
      $downTime[$i] = sprintf("%.2f", tv_interval ($t0));
 
      #math to figure download speed, added a 3.5% overhead.
      $kbps[$i] = (($filesize/$downTime[$i])/1024)*1.035;
 
   }
 
 
 
   @kbps = sort {$b <=> $a} (@kbps);
   @downTime = sort {$a <=> $b} (@downTime);
 
   my $avg = sprintf("%.2f", ($kbps[0]+$kbps[1]+$kbps[2])/3);
 
   #$sp->Destroy;
 
 
   Win32::MsgBox("Your Speed Test has been competed\r\n[".$downTime[0]." sec. ".sprintf("%.2f",($filesize/1024))." kb file]\r\n\r\n".
 
   "Avrage: ".$avg." kbps\r\n".
   "Peak:     ".sprintf("%.2f", $kbps[0])." kbps\r\n\r\n\r\n Razcon © 2008",
   MB_ICONINFORMATION,'Speed Test');
 
}
 
 
 
 
 
sub doStuff
{
 
   my $mw = MainWindow->new;
 
   $mw->withdraw();
 
   my $sp = $mw->Splashscreen;
 
   my $progress = $sp->Animation(-file   => "progress.gif", -format =>  "gif");
   my $icon = $sp->Label(-image => $progress)->pack();
   $progress->start_animation(150);
 
   $sp->Splash();
   $mw->MainLoop;
 
}