如何使用perl代码创建文件并写入20行数据并从同一文件读取15行数据

Question

我需要创建一个文件并向其中写入20行数据，而且我必须能够使用perl代码从同一文件中读取前15行数据。请帮助我解决这个问题。我的代码如下：

open(fh, "+>>myfile.txt") or die "Couldn't open file file.txt, $!";
print ("Enter the content \n"); 
$a = <>;
print(fh $a);

while (<>) {
   print if (1 .. 15);
}

close（fh）;