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;