$msg = MIME::Lite->new(
       From    =>'...@myhost.com',
       To      =>'edja...@quirkyjapan.or.tv',
       Subject =>'A message with 2 parts...',
       Type    =>'multipart/mixed');
    ### Add parts (each "attach" has same arguments as "new"):
$msg->attach(Type     =>'BINARY',
             Data     =>"Here's the GIF file you wanted");
$msg->attach(Type     =>'application/msword',
             Path     =>'test.doc');
    $text = $msg->as_string;
    $msg->send;
print "done";