在Perl中，你可以使用open函数来打开一个文件，并使用<符号来读取文件的内容。以下是一个示例代码，演示了如何打开一个文件并提取其中的内容：
# 打开文件
open(my $file, "<", "filename.txt") or die "无法打开文件: $!";
# 逐行读取文件内容
while (my $line = <$file>) {
# 在这里处理每一行的内容
print $line;
}
# 关闭文件
close($file);
在上面的代码中，filename.txt是要打开的文件名。通过<符号，我们以只读模式打开文件。如果文件无法打开，die函数会输出错误信息并终止程序的执行。
在while循环中，我们使用<$file>来读取文件的一行内容，并将其存储在变量$line中。你可以在循环内部对每行的内容进行处理。
最后，通过close函数关闭文件。
请注意，以上代码只是一个基本的示例，你可以根据具体需求进行修改和扩展。
