#!/usr/bin/perl

use strict;
use warnings;
use File::ReadBackwards;

my $file = 
'/usr/lib/perl5/site_perl/5.8.8/File/ReadBackwards.pm';

tie *BW, 'File::ReadBackwards',  $file, or
    die "can't read file $file: $!";
while ( <BW> ) {
                  print;
}