bonjour et merci de me venir en aide

voici mon bout de code:

#!/usr/bin/perl

use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
$ado = "C:/gvar/adonis/";

# Create a Zip file
my $zip = Archive::Zip -> new();

# Add a directory
$zip -> addTree('$ado');

# Save the Zip file, Save the world
unless ( $zip -> writeToFileNamed('C:/gvar/adonis.zip') == AZ_OK ){
die 'write error';
}


le problème est qu'il crée le fichier.zip mais malheureusement il est vide et ne contient pas le dossier voulu