如果你打开了 use strict ，你会发现 $++foo 没有任何意义。

下面是如何做的：

use strict;
use warnings;
my $file = 'SnPmaster.txt';
open my $info, $file or die "Could not open $file: $!";
while( my $line = <$info>)  {   
    print $line;    
    last if $. == 2;
close $info;

这利用了特殊变量 $. ，该变量跟踪当前文件中的行号。(参见 perlvar )

如果要改用计数器，请使用

my $count = 0;
while( my $line = <$info>)  {   
    print $line;    
    last if ++$count == 2;
}