在Perl中，可以使用open函数打开文件，然后使用<操作符来逐行读取文件。下面是一个示例代码：
open(my $file, '<', 'filename.txt') or die "无法打开文件: $!";
while (my $line = <$file>) {
chomp $line; # 去除行尾的换行符
# 处理每一行数据
print "$line\n";
}
close($file);
在上面的代码中，open函数用于打开名为filename.txt的文件，并将文件句柄保存在变量$file中。<操作符用于从文件句柄中获取每一行数据，保存在变量$line中。chomp函数用于去除每一行末尾的换行符。然后可以对每一行数据进行进一步处理。
最后，记得在读取完文件后使用close函数关闭文件句柄，释放资源。
