$mime_msg = MIME::Lite->new(
	From => '1001@151.104.234.7',
	To   => '1002@151.104.234.7',
	Subject => 'test',
	Type => 'text/html',
	Data => $message);

MIME::Lite->send('smtp', '151.104.234.7');
$mime_msg->send();