Perl程序查看文件内容

各位Perl高手

我想写一个Perl程序，获得如下信息

文件的第一行，中间一行，最后一行，并且带有这三行的行号？有什么好的实现方法？

多谢

作者: 中国龙老张发布时间: 2011-06-01

perl -lne '{$a[$.]=$_}END{print $a[1],"n",$a[$./2],"\n",$a[$.]}'

作者: yinyuemi 发布时间: 2011-06-01