Ouvrire fichier text par perl

voici un exemple d'ouverture de fichier texte :

open(<FIC>,"<nom_de_ton_fichier")|| die "erreur"; # die si le fichier ne s'ouvre pas affiche une erreur
#<FIC> est remplaceable par ce que tu veux comme nom

while( $l=<FIC>)
{
chomp $l;
print "$l \n"; #écrit le fichier ligne par ligne
}