use strict;
use File::ReadBackwards;

my $bw = File::ReadBackwards -> new ("log.txt") or die;
while (defined (my $line = $bw -> readline))
  {
      print $line;
  }
$bw -> close;