Как можно отправить письмо с аттачем ?
и еще:
Как сделать так чтобы в файле html который формируется перлом был линк на почту типа mailto:[email protected]?
спасибо

Используй MIME:Entity;

а поподробнее можно ?
если бы я знал как использовать этот MIME:Entity ,то не спрашивал бы

Create a multipart message (i.e., one with attachments):

          ### Create a new multipart message:
          $msg = MIME::Lite->new(
                       From    =>'[email protected]',
                       To      =>'[email protected]',
                       Cc      =>'[email protected], [email protected]',
                       Subject =>'A message with 2 parts...',
                       Type    =>'multipart/mixed'
                       );

          ### Add parts (each "attach" has same arguments as "new"):
          $msg->attach(Type     =>'TEXT',
                       Data     =>"Here's the GIF file you wanted"
                       );
          $msg->attach(Type     =>'image/gif',
                       Path     =>'aaa000123.gif',
                       Filename =>'logo.gif',
                       Disposition => 'attachment'
                       );

Так же можно использовать Mail::Sendmail

Код

use MIME::QuotedPrint; use MIME::Base64; use Mail::Sendmail; $message = qq[Test]; $boundary = "====" . time() . "====";  %mail = ( To      => '[email protected]',            From    => '"Bill Gates" <[email protected]>',            Subject => 'Test',    'Content-Type' => "multipart/mixed; boundary=\"$boundary\" charset=koi8-r",    'Content-Transfer-Encoding' => '8bit',    'X-Mailer' => 'Microsoft Outlook Express 6.00.2600.0000',    smtp    => '192.168.1.80:25',    'X-MSMail-Priority' => 'High'); $file = ''; #Здесь пишешь название файла, которы отправляешь. open (F, $file) or die "Cannot read $file: $!"; binmode F; undef $/; $mail{body} = encode_base64(<F>); close F; $boundary = '--'.$boundary; $mail{body} = <<END_OF_BODY; $boundary Content-Type: text/html; charset="koi8-r" Content-Transfer-Encoding: 8bit $message $boundary Content-Type: application/octet-stream; name="$file" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="$file" $mail{body} $boundary-- END_OF_BODY  sendmail(%mail) or die $Mail::Sendmail::error;  print "OK. Log says:\n", $Mail::Sendmail::log;