#!/usr/bin/perl -w
open (FILE, "amants.txt");
open (FILE2, ">copie.txt"); # ouverture du fichier en écriture
while ($ligne = <FILE>) {
	print FILE2 "$ligne";
	print "$ligne";
}
close FILE;
close FILE2;