#!/usr/bin/perl

open FICHIER,"< lettre.txt" or die "Le fichier n'existe pas !";
while ($ligne = <FICHIER>){
      print $ligne;
}
close FICHIER;