$lines = `/usr/bin/wc -l afile.txt`;
open(F, '<afile.txt') || die 'cannot open afile.txt';
$cntr = 0;
while (<F>) {
   $cntr++;
    print;
    last if $cntr == $lines - 2;
}