[perl-win32-gui-users] Window doesn't appear until code has finished

[Brian R. (G. H. School) <Row...@gr...>]

I'm writing a login gui in perl and I've got a mental block:

I've created my gui:

my $main = Win32::GUI::Window->new(
	-name   => 'Main',
	-width  => 600,
	-height => 400,
        -text   => 'GHS Login',
        -sizable=> 0,
        -hasminimize => 0,
        -hasmaximize=> 0, 
);
... widgets positioned
$main->Center();
$main->Show();
Win32::GUI::Dialog();
exit(0);

My question is, how can I get the  window to be displayed and then have
perl code running in the background?
I've tried:
sub Main_Activate {
        ... perl code
return 0;
}
The perl code runs and then the window appears.


Thanks
Brian Rowlands
We must accept finite disappointment, but we must never lose infinite
hope.
Martin Luther King Jr. </quotes/k/martinlutherking/>