Perl читает построчно

У меня есть простой Perl-скрипт для чтения файла построчно. Код ниже. Я хочу отобразить две строки и разорвать цикл. Но не работает. В чем ошибка?

$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);