WxPerl

#!/usr/bin/perl -w
# chargement du module principal de wxPerl
use Wx;
# on définit une classe MyApp basée sur Wx::App pour notre application
package MyApp;
use base 'Wx::App';
# cette méthode est appelée automatiquement quand on appelle le constructeur de
# l'application, elle se charge de l'initialisation de l'application
sub OnInit {
# crée une nouvelle fenêtre (une frame est une fenêtre apparaissant au premier plan)
    my $frame = Wx::Frame->new( undef,           # fenêtre parente
                                -1,              # ID (-1 signifie "n'importe lequel")
                                'wxPerl rules',  # titre
                                [-1, -1],        # position initiale
                                [250, 150]       # dimensions
                               );
    # affiche la fenêtre
    $frame->Show( 1 );
}
package main;
# la création de l'objet de type MyApp appellera la méthode OnInit
my $app = MyApp->new;
# lance la boucle principale du programme, qui traite les événements de l'interface
# la fonction se termine quand la dernière fenêtre de l'application est fermée
$app->MainLoop;