


	my $ENTREE = shift;
	my $Sortie = shift;


	    # Préparation du fichier intermédiaire.
	    open(ENTREE, "<$ENTREE") || die "Peux pas ouvrir fin $ENTREE : $!\n";
 
	    my $tmp = $Sortie . ".tmp";

	    open(SORTIE, ">$tmp") || die "$tmp : $!\n";

	    while(<ENTREE>){
	        my $str = $_;
	        # Pour chaque ligne on décolle la ponctuation tout en
	        # la conservant.
	        $str =~ s/(\'|\.|\?|\!|\,|\;|\"|\:|\(|\))/ $1 /g;
	        my @mots = split(/\s/, $str);
	        print SORTIE join("\n", @mots), "\n"; # 1 mot par ligne.
	    }

	    close ENTREE;
	    close SORTIE;

	    system(treetagger/tree-tagger-MacOSX-3.2/bin/tree-tagger -no-unknown -lemma -token french-par-linux-3.1.bin $tmp,  $Sortie); 

	    # effacement fichier temporaire.
	    unlink $tmp || die "Echec rm $tmp : $!";
	