Salut, j'essaye d'afficher le contenu d'un dossier mais ca ne fonctionne pas

voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
print "Tentative de connexion sur le serveur ${serveur_ftp_utilisateur}";
my $ftp=Net::FTP->new($serveur_ftp_utilisateur)
or die "Impossible de se connecter au serveur .. Verifier vos informations,pare-feu .\n";
$ftp->login($login_ftp_utilisateur,$motdepasse_ftp_utilisateur)
or die "Identifiant ou mot de passe incorrecte ";
$ftp->cwd("/")
or die "Ce répertoire n'existe pas .";
$ftp->list()
or die "marche pas";
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
#Execution du script
>> Tentative de connexion sur le serveur ..
[jeremy@ArchLinux Perl]$
ca m'affiche rien , pas d'erreur et le script se fini.. quelqu'un a la solution svp