See File::ReadBackwards:

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

my $bw = File::ReadBackwards->new('/var/log/maillog') or die $!;
while (defined( my $line = $bw->readline )) {
    chomp($line);
    print "<$line>\n";
}
$bw->close;
[download]