use File::ReadBackwards;

my $ERRORLINES_IN = File::ReadBackwards->new($logfile) or die "$logfile : $!\n";
while (defined($logline = $ERRORLINES_IN->readline)) {