# Displays the last $n lines of $file_name,
# earliest first.

my $file_name = 'file.log';
my $n = 5;

my $fh = File::ReadBackwards->new($file_name)
   or die("Can't read input file: $!\n");

my @lines;
for (1..$n) {
   my $line = $fh->readline();
   last if not defined $line;
   unshift(@lines, $line);
}

print foreach @lines;