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;