use MIME::QuotedPrint;
use MIME::Lite;

my $msg = MIME::Lite->new(
 'From' => $emailReturn,
 'To' => $email,
 'Subject' => encode_qp($subject),
 'Type' => 'text/html',
 'Data' => encode_qp($message),
);
$msg->attr('MIME-Version' => '1.0');
$msg->attr('Encoding' => 'quoted-printable');
$msg->attr('content-type' => 'text/html');
$msg->attr("content-type.charset" => "windows-1252");
$msg->send('smtp', "IP ADRESS", Timeout=>60);