use locale;
		use strict;
		use warnings;

		if ( $#ARGV != 0 ) {
			die "Dossier à ouvrir? Usage : perl openDir.pl /users/votreNom/Dossier\n";
		}

		my $dossier = "$ARGV[0]";
		opendir (DIR, $dossier) or die "Impossible d'ouvrir le dossier ", "$dossier : ", "$!";

		print "Fichiers en format texte :\n";

		while (my $fichier = readdir (DIR)) {
			next if $fichier !~ ".\.txt";
			print "$fichier\n";
		}

		closedir (DIR);