#!/usr/bin/perl -w
print "Veuillez saisir le nom d'un fichier\n";
$fichier=<>;
open(FILE, ">>$fichier"); 
# ouverture en ajout dans un fichier existant
print "Vous pouvez écrire des lignes qui seront écrites dans le fichier\n";
while ($ligne = <>) {
 chomp($ligne);
 if ($ligne eq "fin") { 
	print FILE "$texte\n"; 
	# Ce texte viendra s'écrire à la suite de amantsBIS.txt
	exit;
	} # Si on saisit "fin", ça s'arrête
 else { $texte .="$ligne\n"; }
}
close FILE;