[perl-win32-gui-users] Testing fork() , because I want to download with lwp

[Guillem Cunillera Wefers]

I include this simple program because I want to download some web pages without 
losing the user interaction. How I have to change this code in order to avoid 
the error in the second click ?

If someone have some example for doing this I will be very very happy !

##Interfície gràfica pel Parsev70b
##AUTOR: Guillem Cunillera i Wefers


use Win32::GUI;
use Win32::API;
use LWP::UserAgent; 
use LWP::Simple;
use URI::https;
use LWP::Protocol::https;

my $w_tutor = Win32::GUI::Window->new (
 -top  => 0,
 -left  => 0,
 -width     => 600, 
 -height    => 600,
    -minsize => 600,600
 -text  => "Tutor", 
 -name  => "e_w_tutor",);


my $download = $w_tutor->AddButton(
 -text  => "OBTENIR DADES", # Text al botó
 -left  => 400,
 -top  => 160,
 -height  => 25,
 -name  => "download",
 );

sub download_Click {
 
 $download->Disable();
  
 if ($ere=fork() ) {
 
     print "A\n"; 
 } 
 else 
 {         
    print "B \n";
    $download->Enable();
    exit(0);
  
 }  
 print "acabo click \n";
 return 1;       
}

 
# ---------------------------
sub e_w_tutor_Terminate {
# --------------------------
 $w_tutor->Hide();
 
 print "adeu! \n";
 return -1;

}

$w_tutor->Show ();

Win32::GUI::Dialog();  # Inici d'execucio gràfica