#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib qw(/home/www/web33/html/cgi-bin/test/ReadBackwards.pm);
use File::ReadBackwards;

my $cgi = CGI->new();
print $cgi->header('text/plain');

my $file = './Variables/messages.txt';
my $frb =  File::ReadBackwards->new( 'log_file' ) or
                      die "can't read 'log_file' $!";

for(0..9){
  print $frb->readline();
}