use MIME::QuotedPrint; use MIME::Base64; use Mail::Sendmail; $host = "look.server.com.co"; $username = "MyEmailUser"; $password = "MyEmailPass"; $from = 'Willger@server.com.co'; $to = 'Torres@Server.com.co'; $mboundary="-FINALBLOCKgc0p4Jq0M2Yt08jU534c0p"; #this you cand select any compouse of alfanumeric, but not change $mensaje = "Este es un mensaje en texto\n\n\n"; $html = "

TEST TABLE

COLUMN1COLUMN2COLUMN3
DATA1DATA2DATA3
NEXT1NEXT2NEXT3
"; %mail = ( 'To' => $to, 'From' => $from, 'Subject' => $asunto.$hora, 'Content-type' => 'multipart/mixed; charset=iso-8859-1; boundary='.$mboundary, ); ##Convert the file to encode base open (F, $mylocationfile) or die "Cannot read $file: $!"; binmode F; undef $/; $cfile = encode_base64(); close F; $cfilelen = length $cfile; ##to start the next section of the mail $mboundary = '--'.$mboundary; $mail{body}= <