Работа с файлами в Perl

open(F,"<file")||die "cannot open file $!";
while(<F>){
   print;
}
close F;

или
open(F,"<file")||die "cannot open file $!";
@file=<F>;
close F;
foreach$line(@file){
     print $line;
}