use strict;
use File::Tail;

my $num_of_lines = 10;
my $tail = new File::Tail (name=>$ERRLOG, tail => $num_of_lines);
  
for (1..$num_of_lines) {
   my $line = $tail->read();
   print "$_: $line";
}

$tail = undef;