相关疑难解决方法(0)

我有一个简单的Perl脚本来逐行读取文件.代码如下.我想显示两行并打破循环.但它不起作用.这个bug在哪里？

$file='SnPmaster.txt';
open(INFO, $file) or die("Could not open  file.");

$count = 0; 
foreach $line (<INFO>)  {   
    print $line;    
    if ($++counter == 2){
      last;
    }
}
close(INFO);