C:\A\backup\scripts>mail_attach2.pl
Bareword found where operator expected at
C:\A\backup\scripts\mail_attach2.pl line 19, near "Filename =>'butterfly"
 (Might be a runaway multi-line '' string starting on line 18)
       (Do you need to predeclare Filename?)
syntax error at C:\A\backup\scripts\mail_attach2.pl line 19, near "Filename
=>'butterfly"
Bad name after ani' at C:\A\backup\scripts\mail_attach2.pl line 19.


##</code><code>##

use MIME::Lite;

### Create a new multipart message:
$msg = MIME::Lite->new(
From    =>'johns@mindspring.com',
To      =>'peter21458@aol.com',
#Cc      =>'some@other.com, some@more.com',
Subject =>'A test with attachment',
Type    =>'multipart/mixed'
);

### Add parts (each "attach" has same arguments as "new"):
$msg->attach(Type     =>'TEXT',
Data     =>"Here's the file you wanted"
);
$msg->attach(Type     =>'animated cursor',
Path     =>'C:\a\cursors\',
Filename =>'butterfly.ani'
);
   if ($I_DONT_HAVE_SENDMAIL) {
      MIME::Lite->send('smtp', "smtp.mailrelay.usps.gov", Timeout=>60);
   }

   $msg->send;         ### will now use Net::SMTP as shown above


#$text = $msg->as_string;