$mail->send(-to=>"$email", -subject=>"$subject",
            -body=>"$emailtext",-contenttype=>'text/html');
      if ($mail == -1) {
         die "Mail send error: $!\n";
      } else {
         print "Success!\n\n";
         print OUTFILE "Success!\n\n";
      }