在Perl中，可以使用open函數來打開一個文件，并使用<操作符來讀取文件內容。下面是一個示例代碼：
# 打開文件
open(my $file, "<", "filename.txt") or die "無法打開文件: $!";
# 讀取文件內容
while (my $line = <$file>) {
# 處理每行內容
chomp $line; # 去除末尾的換行符
print "$line\n";
}
# 關閉文件
close($file);
在上面的代碼中，open函數打開一個名為filename.txt的文件，并將其賦值給變量$file。<操作符用于指定以只讀模式打開文件。如果無法打開文件，die函數會輸出錯誤信息并終止程序。
然后，使用while循環逐行讀取文件內容，每次讀取一行，并將其賦值給變量$line。chomp函數用于去除末尾的換行符。你可以在循環中對每行內容進行處理，比如打印出來。
最后，使用close函數關閉文件。
