Perl read line by line

If you had use strict turned on, you would have found out that $++foo doesn’t make any sense.

Here’s how to do it:

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;

This takes advantage of the special variable $. which keeps track of the line number in the current file. (See perlvar)

If you want to use a counter instead, use

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