how to send attachment by mail using perl script?

[cccc]

hi

how to send an attachment by mail using a perl script?
if someone can post a script, I'll be very happy.

kind regards
cccc

[flashfan]

$mailer = MIME::Lite->new(From=>'', 
    To=>'', 
    Subject=>'',
    Type=>'multipart/mixed');
$mailer->attach( Type=>'text/html', 
   Data=> $yourmessage);
$mailer->attach(Type=>"application/xls", 
  Path=>'',
  Filename=>'',
  Dispostion=>'attachment');
$mailer->send('smtp', $yoursmtpserver);

[cccc]

hi flashfan

I tried but I get compilation errors.

#!/usr/bin/perl -w

use strict;
use warnings;
use MIME::Lite;

#MIME::Lite->send("sendmail", "/usr/sbin/sendmail -t -oi -oem");

$yoursmtpserver = "/usr/sbin/sendmail"

$mailer = MIME::Lite->new(From=>'[e-mail]',
To=>'[e-mail]',
Subject=>'Hi',
Type=>'multipart/mixed');
$mailer->attach( Type=>'text/html',
Data=> $yourmessage);
$mailer->attach(Type=>"application/xls",
Path=>'/var/log.txt',
Filename=>'log.txt',
Dispostion=>'attachment');
$mailer->send('sendmail', $yoursmtpserver);

greetings
cccc

[flashfan]

Be sure you have MIME::Lite module installed.

[cccc]

hi flashfan

MIME::Lite is installed.

kind regards
cccc