use locale;
		use strict;
		use warnings;

		if ( $#ARGV != 0 ) {
			die "Fichier à ouvrir?\n";
		}

		$/ = undef;
		open (FIC, $ARGV[0]) or die "Impossible d'ouvrir le fichier ", "$ARGV[0] : ", "$!";
		my $texte = <FIC>;
		print $texte, "\n";
		close FIC;
		

##</code><code>##

		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);
		

##</code><code>##

	use locale;
	use strict;
	use warnings;

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

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

	while (my $fichier = readdir (DIR)) {
		next if $fichier !~ ".\.txt";
		$/ = undef;
		open (FIC, $fichier) or die "Impossible d'ouvrir le fichier ", "$fichier : ", "$!";
		my $texte = <FIC>;
		print $texte, "\n";
		close FIC;
	}

	closedir (DIR);