要使用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是你要读取的文件的路径和名称，你需要根据实际情况进行相应的调整。
