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

use File::ReadBackwards;

my $file = 'weblog.log';
my $bw   = File::ReadBackwards->new ($file)
  or die "can't read '$file' $!";

while (defined (my $log_line = $bw->readline)) {
    print $log_line;
}