在 Perl 中，可以使用文件句柄来读取文件。如果您只需要读取文件的第一行，可以使用以下代码：
open(my $file_handle, "<", "file.txt") or die "无法打开文件: $!"; # 打开文件
my $first_line = <$file_handle>; # 读取第一行
chomp($first_line); # 去掉行末的换行符
close($file_handle); # 关闭文件句柄
上面的代码中，首先使用 open 函数打开文件句柄 $file_handle，其中第一个参数为文件句柄，第二个参数 < 表示以只读模式打开文件，第三个参数为文件名。
接下来，使用文件句柄 $file_handle 和尖括号操作符 <> 读取第一行，并将其赋值给变量 $first_line。注意，在使用尖括号操作符读取文件时，它会自动读取下一行，因此它只会读取文件的第一行。
最后，使用 chomp 函数去掉行末的换行符，并使用 close 函数关闭文件句柄。
需要注意的是，在使用文件句柄操作文件时，需要确保文件句柄已经被正确关闭，以避免出现内存泄漏或文件被锁定等问题。
希望这个回答能够帮到您！