[perl-win32-gui-users] window freezes when connecting to IRC

[Roger Mayfield]

I have been trying to create a GUI for my IRC bot, but no matter what I 
try, the GUI freezes once it connects. I know that the GUI has a loop 
and that NET::IRC has it's own loop; therefore I have used NET::IRC's 
do_one_loop and WIN32::GUI's DoEvents. I've even tried lagging the irc 
loop to get the window to update reguraly, but it didn't work either, 
here is my program's main loop:

while (!$terminate) {
   $window->DoEvents();
   if ($loop > 90000 && $connected) {
       $irc->do_one_loop();
       $loop = 0;
   }
   else { $loop++; }
}
Any suggestions?

Roger Mayfield