Bonjour,
 
voici mon code :
 
##
 
use strict;
use Win32;
use Win32::GUI;
use Win32::Console;
 
$main = Win32::GUI::Window->new(
  -name => "main",
  -width => 100,
  -height => 100
);
 
$main->AddLabel(
  -text => "Hello, world"
);
 
$main->Show();
 
Win32::GUI::\Dialog();
 
sub main_Terminate {
        -1;
}
 
##
 
et voici les messages d'erreurs que j'obtiens :
C:\>perl "Perl\scripts\Siemens\gui.pl"
Global symbol "$main" requires explicit package name at Perl\scripts\Siemens\gui.pl line 6.
Global symbol "$main" requires explicit package name at Perl\scripts\Siemens\gui.pl line 12.
Global symbol "$main" requires explicit package name at Perl\scripts\Siemens\gui.pl line 16.
Execution of Perl\scripts\Siemens\gui.pl aborted due to compilation errors.
 
Pouvez-vous m'aidez ? Normalement c'est censé marcher.
j'ai installé le package Win-32 sur mon PC (Win32-GUI-1.0-PPM-5.8) et ma version de Perl est ActivePerl-5.8.6.811.
Merci d'avance pour votre aide.

quand tu utilises "use strict" tu dois déclarer les variables que tu vas utiliser ($main en l'occurence)
donc soit tu enlèves le "use strict", soit tu déclares avec

avant d'utiliser ta variable