open (FENT1, "desqueyroux.fr" ) || die "Probleme"; open (FENT2, "desqueyroux.ang" ) || die "Probleme"; print "Quel titre voulez vous donner à la version bilingue de cet extrait?\n";$fsort=<STDIN>;chomp $fsort;open (FSORT, ">$fsort.html");print FSORT "<HTML>\n<HEAD><TITLE>$fsort</TITLE></HEAD>\n<BODY>\n<TABLE>\n";$i=1 ;while (($li1 = <FENT1>) && ($li2 = <FENT2>)) {	print FSORT "<TR><TD>$i:</TD><TD>$li1</TD><TD>$li2</TD></TR>\n"; 
		$i++;}print FSORT "</TABLE>\n</BODY>\n</HTML>";close (FSORT);close (FENT1);close (FENT2);