#!/usr/bin/perl
use strict;
use warnings;

my $maxline = 5;
my $start = 2;
my $fileName = "testlog";

open my $info, '<', $fileName or die "Could not open '$fileName': $!";

<$info> // die "Log file '$fileName' too short\n" for 1 .. $start - 1;

for ($start .. $maxline) {
    my $line = <$info> // die "Log file '$fileName' too short\n";
    print $line;
}

##</code><code>##