$msg = MIME::Lite->new (
To =>'someone@somewhere.co.nz',
From => 'mail@someone.co.nz',
Subject =>'mailbird',
Type =>'multipart/mixed',
);
$msg->attach(Type => 'text/html',
Data => qq~
Taieri Print Ltd
Mailbird Newsletter
~);
$msg->attach(Type =>'image/jpg',
Path =>'tplogo.jpg',
Filename =>'logo.jpg',
disposition=>'inline',
);
$msg->send('smtp', 'smtp.xtra.co.nz') or die 'Message not sent to $recipient';
