print "Entrez un fichier\n";$fichier=<STDIN>;
open(FENT, $fichier) || die "Probleme";open(FSORT, ">sortie-p96.html") || die "Probleme";print FSORT "<HTML>\n";$i=1;while ($ligne = <FENT>) {	if ($i==1) {		print FSORT "<HEAD><TITLE>$ligne</TITLE></HEAD>\n";		print FSORT "<BODY>\n";		print FSORT "<ol>\n";	};	print FSORT "<li>$ligne \n</li>";
	print FSORT "\n";	$i++ ;}print FSORT "</ol>\n";print FSORT "</BODY>\n";print FSORT "</HTML>\n";close (FENT);close (FSORT);