在Perl中，可以使用<FILEHANDLE>的方式来读取文件的每一行内容。具体步骤如下：
open my $fh, '<', 'filename.txt' or die "Cannot open file: $!";
while循环读取文件的每一行内容直到文件末尾：while (my $line = <$fh>) {
# 在这里处理每一行的内容，例如打印到屏幕
print $line;
}
close $fh;
通过以上步骤，可以逐行读取文件的内容并进行相应的处理。
