在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函数关闭文件。
