use HTML::Table;
use Mail::Sendmail;

my $outfile = 'log.txt';

#Read the last 24 lines from the file which is the latest 24 transfers and generate a email.
unshift @{$Mail::Sendmail::mailcfg{'smtp'}} , 'mail.dadada.com';
$Mail::Sendmail::mailcfg{'from'} = "dadada\@dadada.com";
open(FILE, $outfile) or die "Can't open File: File does not exist $!";
@file = <FILE>;
@file = reverse(@file);
close FILE;
	for (0..23)
	{
		$dayData .= "$file[$_]";
			
	}

my %mail = (
  To => 'dadada@dadada.com',
  Subject => "Report - Transfer Summary - $date",
  Message => "Mail auto generated on $date\n\n\n $dayData",
);

sendmail( %mail ) or die "Error: $Mail::Sendmail::error\n";
printf "\nMail Sent /@ $date\n";


##</code><code>##


 Sun Jul 21 07:20:22 2013            15      Success         17 sec          0.88 MB/sec	 7.00 Mb/sec	 52.00 MB/min
Sun Jul 21 06:20:22 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sun Jul 21 05:20:22 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sun Jul 21 04:20:22 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sun Jul 21 03:20:22 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sun Jul 21 02:20:22 2013            16      Success         18 sec          0.89 MB/sec	 7.00 Mb/sec	 53.00 MB/min
Sun Jul 21 01:20:22 2013            16      Success         19 sec          0.84 MB/sec	 6.00 Mb/sec	 50.00 MB/min
Sun Jul 21 00:20:22 2013            16      Success         18 sec          0.89 MB/sec	 7.00 Mb/sec	 53.00 MB/min
Sat Jul 20 23:20:23 2013            16      Success         16 sec          1.00 MB/sec	 8.00 Mb/sec	 60.00 MB/min
Sat Jul 20 22:20:23 2013            16      Success         18 sec          0.89 MB/sec	 7.00 Mb/sec	 53.00 MB/min
Sat Jul 20 21:20:23 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sat Jul 20 20:20:22 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sat Jul 20 19:20:23 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sat Jul 20 18:20:23 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sat Jul 20 17:20:22 2013            16      Success         18 sec          0.89 MB/sec	 7.00 Mb/sec	 53.00 MB/min
Sat Jul 20 16:20:22 2013            16      Success         18 sec          0.89 MB/sec	 7.00 Mb/sec	 53.00 MB/min
Sat Jul 20 15:20:23 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sat Jul 20 14:20:23 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sat Jul 20 13:20:23 2013            16      Success         18 sec          0.89 MB/sec	 7.00 Mb/sec	 53.00 MB/min
Sat Jul 20 12:20:22 2013            136     Success         2 min 39 sec    0.86 MB/sec	 6.00 Mb/sec	 51.00 MB/min
Sat Jul 20 11:20:22 2013            16      Success         18 sec          0.89 MB/sec	 7.00 Mb/sec	 53.00 MB/min
Sat Jul 20 10:20:23 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min
Sat Jul 20 09:20:25 2013            16      Success         18 sec          0.89 MB/sec	 7.00 Mb/sec	 53.00 MB/min
Sat Jul 20 08:20:23 2013            16      Success         17 sec          0.94 MB/sec	 7.00 Mb/sec	 56.00 MB/min