#!/usr/bin/perl -w
#on ouvre le fichier en lecture, référencié par le nom FILE
open (FILE, "amants.txt");
#on ouvre le fichier en écriture, référencié par le nom OUT
open (OUT, ">copie.txt"); 
# tant qu'il y des lignes à lire dans le fichier, je lis
while ($ligne = <FILE>) {
#j'imprime en sortie les lignes du fichier	
	print OUT "$ligne";
#j'imprime les lignes du fichier dans l'entrée de standard		
	print "$ligne";
}
#je ferme le fichier en lecture
close FILE;
#je ferme le fichier en écriture
close OUT;