Help for this page
perl -e "@l = <>; print 'first : ', $l[0], 'last : ', $l[$#l];" filen +ame
perl -e "$first = <>; while($line = <>) { $last = $line; }; print 'fir +st : ', $first, 'last : ', $last;" filename