[PERL] je suis débutant

#!/usr/local/bin/perl
use Tk;	 #Utilisation de Tk
#use strict;
use warnings;
use Tk::ProgressBar;
#use Tk::Photo;
#use Tk::PNG;
#use Net::FTPSSL;


##module qui pourrait m'être utile
#Net::FTP::File

#if ("il y a des fichiers de sélectionné")
#	{
#	my $ftps = Net::FTPSSL->new("192.168.0.69",
#			Port=> 21,
#			Encryption => EXP_CRYPT,
#			Debug => 1)
#			or die "Impossible de se connecter à Islo people";
#	
#	$ftps->	login('photographe', 'passe')
#		or die "Pas de login : "
#	}
	
#Définition de la fonction de fermeture de l'application
sub Quitter 
{
    exit(0);
}

#Création de la fenêtre principale
$fen = MainWindow->new();

#Définition de la taille min de la fenêtre
$fen->minsize('500','300');

#Définition du title de la fenêtre
$fen->title("Islo People");

#Création de la barre de menu
$barre_menu = $fen->Frame(-relief => 'groove' , -borderwidth => 2);

#Création de la barre du menu général
$menu_gen = $barre_menu->Menubutton(
                                     -text => 'Menu' ,
                                     -font => '{Garamond} 10',
                                     -tearoff => 0 ,
                                     -menuitems => [
                                                     [ 'command' => 'Quitter' ,
                                                       -font => '{Garamond} 10',
                                                       -command => \&Quitter
                                                     ]
                                                   ]
                                   );

#  Création d'un cadre
    my $frame1 = $fen->Frame()->pack(-side => "bottom",-padx => 10, -pady => 0);

#Affichage du menu général à gauche
$menu_gen->pack(-side => 'left');

#Affichage de la barre de menu en haut de la fenêtre
$barre_menu->pack(-side => 'top', -anchor => 'n', -fill => 'x');

#my $ObjImage = $fenetre->Photo( -format => "png", -file => "image.png" );
#my $bouton2 = $fenetre -> Button (
#    -image => $ObjImage, 
#		-command => sub { exit; },
#)->pack();

 my $status_var =0;
 
    $frame1->ProgressBar(
                 -borderwidth => 10,
                 -relief => 'sunken',
                 -width => 35,
                 -length => 500,
                 -padx => 0,
                 -pady => 0,
                 -variable => \$status_var,
                 -colors => [0, 'green'],
                 -resolution => 0,
                 -blocks => 50,
                 -anchor => 'w',
                 -from =>'0',
                 -to => '100'
                )->pack(
                        -padx => 10,
                        -pady => 10,
                        -fill => 'both'
                       );

    # La boucle dans laquelle la variable de ProgressBar change

    for (my $lostime = 0 ; $lostime < 101 ; $lostime += 5) {
        sleep 1 ;
        $status_var=$lostime ;
        print "comptage en cours: $lostime \n" ;

        # l'instruction suivante permet la prise en compte
        # des changements de valeurs de $status_var dans Perl/Tk,
        # ici  le widget Progressbar

        $fen->update;
    }

    sleep 5;
    print "Fin de l'exemple update \n";
    $fen->destroy;

#Création de notre barre de statut à l'aide d'un Label
$barre_statut = $fen->Label(-relief => 'groove', -text => "Islo people", -font => '{Garamond} 10');

#On l'ajoute en bas de la fenêtre afin de lui donner l'effet barre de statut
$barre_statut->pack( -side => 'bottom', -fill => 'both');

MainLoop;