Aqui les dejo el pedazo de una escritura. Esta escritura tenua un tml muy pobre, lo que quise hacer fue cambiar esta parte por una mas producida aca se las dejo. Seguramente no entre en un solo mensaje.
_____________________________________________
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head><title>$TITLE_OF_PAGE&l t;/title></head>\n";
print "<div align="center">\n";
print "<center>\n";
print "<table border="0" cellpadding="0" cellspacing="3" width="386" height="94" bgcolor="#CC3300">\n";
print "<tr>\n";
print "<td width="374" height="36" bgcolor="#CC3300" colspan="2">\n";
print "<p align="center"><b><font face="Tahoma" color="#FFFF99" size="4">Campaña\n";
print "para empresa</font></b></td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td width="288" height="40" bgcolor="#FFFF99"><font face="Tahoma" size="2" color="#CC3300"><b>&nbsp;No mbre del Banner</b></font></td>\n";
print "<td width="86" height="40" bgcolor="#FFFF99"><font face="Tahoma" size="2" color="#CC3300"><b>&nbsp;To tal/es</b></font></td>\n";
print "</tr>\n";
print "<tr>\n";
$total = 0;
foreach $FILE (@FILES) {
open(FILE,"$FILE");
@LINES = <FILE>;
close(FILE);
$string = join(' ',@LINES);
$total += $string;
$Page = "$FILE";
$Page =~ s/$path//g;
$Page =~ s/.log//g;
print "<td width="288" height="30" bgcolor="#FFFFCC"><font face="Tahoma" size="2" color="#CC3300"><b> $Page</b></font></td>\n";
print "<td width="86" height="30" bgcolor="#FFFFCC"><font face="Tahoma" size="2" color="#CC3300"><b>$string</b></font></td>\n";