sub tag 
{

	my ($t,$d)= @_;
	open(TMP,">:encoding(utf8)","titre.txt");
	print TMP $t;
	close TMP;
	system("perl tokenise-utf8.pl titre.txt | ./tree-tagger -lemma -no-unknown -token french-oral-utf-8.par > titre_tag.txt");
	system("./treetagger2xml-utf8-macosx titre_tag.txt utf8");
	open(TMP2, "<:encoding(utf8)","titre_tag.txt.xml");
	my $t_tag="";
	my $ligne = <TMP2>;
	while (my $ligne = <TMP2>) {
        #chomp $ligne;
        $t_tag = $t_tag . $ligne;
   		 }	
	close TMP2;

	open(TMP,">:encoding(utf8)","description.txt");
	print TMP $d;
	close TMP;
	system("perl tokenise-utf8.pl description.txt | ./tree-tagger -lemma -no-unknown -token french-oral-utf-8.par > description_tag.txt");
	system("./treetagger2xml-utf8-macosx description_tag.txt utf8");
	open(TMP2, "<:encoding(utf8)","description_tag.txt.xml");
	my $d_tag="";
	my $ligne = <TMP2>;
	while (my $ligne = <TMP2>) {
	        #chomp $ligne;
	        $d_tag = $d_tag . $ligne;
	    }
	close TMP2;



	return($t_tag,$d_tag);
	}
