$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();

##</code><code>##

"unrecognised line: '1002@151.104.234.7' (eval 8) at line 6."

##</code><code>##

v-string in use/require non-portable at
/usr/lib/perl5/site_perl/5.8.0/MIME/Field/ParamVal.pm
line 65.