my $msg=MIME::Lite->new(From=>$user,
                          To=>join(",", @to_address),
                          Subject=>$0,
                          Data=>$data);
                          
  my $smtp = Net::SMTP::SSL->new('xxx', Debug=>1, Timeout=>20, Port=>465);    
  $smtp->auth($user, $password) or die "Error message: $smtp->message"; 
  $status=$smtp->mail();
  $status=$smtp->to(@to_address);
  $status=$smtp->data();
  my $msgString=$msg->as_string;
  $status=$smtp->datasend($msgString);
  $status=$smtp->dataend();
  $status=$smtp->quit();