Check out the CPAN module File::ReadBackwards.

use File::ReadBackwards;
my $bw = File::ReadBackwards->new( 'oratabtest.txt' ) or
                        die "can't read 'oratabtest.txt' $!" ;

while( my $line = $bw->readline) { print "Last line: $line"; last; }
[download]

Eric