Select Code to Download

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

 Sun Jul 21 07:20:22 2013            15      Success         17 sec   
+       0.88 MB/sec     7.00 Mb/sec     52.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