I am trying to get mail working but I have yet been able to get tit to
work properly, I am using MIME::Lite

 

Not sure what I am doing wrong

 

 

use MIME::Lite;

 

# set up email

$to = "beagle\@alinean.com, beneagle\@earthlink.net";

$from = "me\@example.com";

$subject = "Email Sent via Perl";

$message = "This email was sent using Perl.";

$file = "graph1.jpg";

 

# send email

email($to, $from, $subject, $message, $file);

 

# email function

sub email

{

 # get incoming parameters

 local ($to, $from, $subject, $message, $file) = @_;

 

 # create a new message

 $msg = MIME::Lite-> new(

  From =>  $from,

  To =>  $to,

  Subject =>  $subject,

  Data =>  $message

 );

 

 # add the attachment

 $msg-> attach(

  Type =>  "image/jpeg",

  Path =>  $file,

  Filename =>  $file,

  Disposition =>  "attachment"

 );

 

 # send the email

 MIME::Lite-> send('smtp', 'email01.alinean.com', Timeout => 60);

 $msg-> send();

}

 

 

it gives me a error on  $msg-> send();

 

not sure why