获得A.TXT第66行的方法：
open(FD,'A.txt');@A=;close(FD);print $A[65];
上面的代码显示其66行内容，如果需要添加到B.TXT文件末尾，后续代码如下：
OPEN(FD,'>>B.txt');print FD $A[65];close(FD);
