#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $maxline = 5;

open my $info, "testlog" or die "Could not open $!";

my $start = 2;

my $count = 0;

while( my $line = <$info>)  {
        next if $count < $start;
        print $line;
        last if ++$count == $maxline;
        print "$count \n";
}