在Perl中向文件中添加幾行，可以使用以下方法：
open函數打開文件，并將文件句柄賦值給一個變量。例如，將文件句柄賦值給變量$filehandle：open my $filehandle, '>>', 'filename.txt' or die "無法打開文件: $!";
這里，'>>'表示以追加模式打開文件，如果文件不存在，則創建文件。
print函數將要添加的行寫入文件。例如，將要添加的行寫入文件filename.txt：print $filehandle "行1\n";
print $filehandle "行2\n";
print $filehandle "行3\n";
這里，"\n"表示換行符。
close函數關閉文件：close $filehandle;
完整的示例代碼如下：
open my $filehandle, '>>', 'filename.txt' or die "無法打開文件: $!";
print $filehandle "行1\n";
print $filehandle "行2\n";
print $filehandle "行3\n";
close $filehandle;
運行該代碼后，文件filename.txt中將會添加三行文本。
請注意，如果文件已存在且不為空，使用'>>'模式打開文件時，新寫入的內容將會追加在文件末尾。如果要覆蓋原有內容，可以使用'>'模式打開文件，但這會刪除原有內容。
