#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use File::ReadBackwards;

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

# Sicherstellen, dass es in dem Verzeichnis, in dem das
# Skript liegt auch ein Verzeichnis "Variables" existiert,
# in dem eine Datei "messages.txt" liegt.!!!!!!!!!
my $file = './Variables/messages.txt';
my $frb =  File::ReadBackwards->new( $file ) or
                     die "can't read $file $!";

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