要使用Perl讀取文件內容，可以使用Perl內置的I/O函數來實現。下面是一個簡單的例子，演示了如何使用Perl讀取文件內容：
#!/usr/bin/perl
use strict;
use warnings;
# 打開文件
open(my $fh, '<', 'file.txt') or die "無法打開文件：$!";
# 逐行讀取文件內容
while (my $line = <$fh>) {
chomp $line; # 去除行尾的換行符
print "$line\n"; # 輸出每一行的內容
}
# 關閉文件
close($fh);
在上面的例子中，我們使用了open函數打開了名為file.txt的文件，然后使用<$fh>讀取文件的每一行內容，并使用chomp函數去除行尾的換行符，最后使用print函數打印出每一行的內容。最后，使用close函數關閉文件。
需要注意的是，file.txt是你要讀取的文件的路徑和名稱，你需要根據實際情況進行相應的調整。
