diff --git a/perl/antipixel/MyWrapper.pm b/perl/antipixel/MyWrapper.pm
index 74eefa7..e6718c3 100644
--- a/perl/antipixel/MyWrapper.pm
+++ b/perl/antipixel/MyWrapper.pm
@@ -2,7 +2,7 @@ package MyWrapper;
 use GD;
 use strict;
 use warnings;
-use 5.14.2;
+use v5.14;
 use Moo;
 use MooX::Options;
 
@@ -13,6 +13,22 @@ option distance_entre_mots => ( is => 'rw',
 		short => 'dem',
 		format => 'i', default => sub { 5 }
 	);
+option extends => ( is => 'rw',
+		doc => 'si la taille du message est importante, on peut agrandir le cadre à volonté',
+		short => 'ext'
+	);
+option progress_bar => ( is => 'rw',
+		doc => 'si vous souhaitez utiliser le script pour gérer une barre de progression, il faut indiquer un pourcentage',
+		format => 'i', short => 'pb'
+	);
+option debug => ( is => 'rw',
+		doc => 'si vous souhaitez utiliser le script pour gérer une barre de progression',
+		short => 'd'
+	);
+option couleurs_dispo => ( is => 'rw',
+		doc => 'affiche les couleurs disponibles',
+		short => 'cd'
+	);
 option output => ( is => 'rw',
 		doc => 'fichier généré : fichier image (ex: image.png)',
 		short => 'o',
@@ -36,7 +52,7 @@ option couleur_contour => ( is => 'rw',
 option couleur_interne => ( is => 'rw', 
 		doc => 'couleur interne', 
 		short => 'ci',
-		format => 's', default => sub { 'blanc' }
+		format => 's', default => sub { 'rouge' }
 	);
 option couleur_background => ( is => 'rw' , 
 		doc => 'couleur du fond (écriture)', 
@@ -51,7 +67,7 @@ option taille_x => ( is => 'rw',
 option taille_y => ( is => 'rw',
 		doc => 'taille Y', format => 'i',
 		short => 'y',
-		default => sub { 50 }
+		default => sub { 30 }
 	);
 sub _build_colors {
 	{
@@ -75,31 +91,47 @@ sub afficher_couleurs {
 sub afficher_valeurs_actuelles {
 	my ($self) = @_;
 	say "Message : " . $self->message;
+	say "Peut être étendu" if $self->extends;
+	say "Output file : " . $self->output;
 	say "Distance entre mots : " . $self->distance_entre_mots;
 	say "couleur_interne : " . $self->couleur_interne;
 	say "couleur_externe : " . $self->couleur_externe;
 	say "couleur_background : " . $self->couleur_background;
 	say "taille_x : " . $self->taille_x;
 	say "taille_y : " . $self->taille_y;
+	say "taille_x calculée: " . $self->calcul_taille_x;
 }
-sub tests {
+sub calcul_taille_x {
 	my ($self) = @_;
-	my %couleurs = %{$self->couleurs};
-
-	say "couleur_externe : " . $self->couleur_externe;
-	say "Cette couleur n'existe pas !" unless exists $couleurs{$self->couleur_externe};
+	my $taille_x = $self->taille_x;
+	my @mots = split / /, $self->message;
+	if( $self->extends ) {
+		$taille_x += length $_ for( @mots ) ;
+	}
+	return $taille_x;
 }
-sub run {
-	my $self = shift;
-	#$self->afficher_couleurs ;
-	#$self->afficher_valeurs_actuelles;
+sub calcul_taille_y {
+	my ($self) = @_;
+	return $self->taille_y;
+}
+sub enregistrement_image {
+	my ($self, $im) = @_;
+# We record the image file
+	open (DISPLAY,"> " . $self->output ) || die;
+	binmode DISPLAY;
+	print DISPLAY $im->png;
+	close DISPLAY;
+}
+sub do_img {
+	my ($self) = @_;
 	my %couleurs = %{$self->couleurs};
 	my %couleurs_allouee;
 
 	my @mots = split / /, $self->message;
-	my $x = $self->taille_x;
-	my $y = $self->taille_y;
-	my $intersection = $x - 30;
+	my $x = $self->calcul_taille_x;
+	my $y = $self->calcul_taille_y;
+	my $intersection = $x -30;
+	my $taille_progress_bar = $self->progress_bar * ($x - 1) / 100;
 
 # create a new image
 	my $im = new GD::Image($x,$y);
@@ -113,20 +145,23 @@ sub run {
 # make the background transparent and interlaced
 #$im->transparent($couleurs_allouee{'blanc'});
 	$im->interlaced('true');
-
-# Put a frame around the picture
 	$im->rectangle(0, 0, $x -1, $y -1, $couleurs_allouee{$self->couleur_contour});
-# Put the background color
 	$im->filledRectangle(1, 1, $x -2, $y -2, $couleurs_allouee{$self->couleur_background});
 
-# We add the word cases
-	$im->filledRectangle(2, 2, $intersection - $self->distance_entre_mots, $y -3, $couleurs_allouee{$self->couleur_interne});
+	$im->filledRectangle(2, 2, $taille_progress_bar, $y -3, $couleurs_allouee{$self->couleur_interne});
 
-# make sure we are writing to a binary stream
-	binmode STDOUT;
-
-# Convert the image to PNG and print it on standard output
-	print $im->png;
+	$self->enregistrement_image( $im );
+}
+sub mode_debug {
+	my ($self) = @_;
+	say "ENTER DEBUG MODE";
+	$self->afficher_valeurs_actuelles unless $self->couleurs_dispo;
+	$self->afficher_couleurs if $self->couleurs_dispo;
+}
+sub run {
+	my ($self) = @_;
+	$self->mode_debug if $self->debug;
+	$self->do_img unless $self->debug;
 }
 
 1;