#!/usr/bin/perl

use strict;
use File::ReadFileBackwards;

my @instances = ();

$file=File::ReadFileBackwards->new("/some/log/file");
while (@instances < 10 and defined($line = $file->readline))
{
  push @instances, $line;
}