use strict;
use warnings;
use HTML::Table;
use MIME::Lite;
use File::ReadBackwards;

my $table = new HTML::Table;
my $log = File::ReadBackwards->new('log.txt') or die $!;
$table->addRow(split(/\s\s+/, $log->readline)) for (1..24);
$table->setColBGColor(3, 'Green');
$table->setColFormat(1, '<font color="red">', '</font>');
$table->setColFormat(5, '<font color="blue">', '</font>');
$log->close;

my $msg = MIME::Lite->new(
	From     =>'me@localhost',
	To       =>'recipient@somewhere',
	Subject  =>'Transfer Summary',
	Type     =>'text/html',
	Encoding =>'base64',
	Data     =>$table,
);

$msg->send;