#!/usr/bin/perl

use strict;
use warnings;
use MIME::Lite;

my $msg = MIME::Lite->new(
   From    => 'sender@host.com',
   To      => 'recipient@host.com',
   Subject => 'Word document attached',
   Type    => 'multipart/mixed');

$msg->attach(Type =>'TEXT',
			 Data => "Here's the Word document you wanted"
	);

$msg->attach(Type => 'application/msword',
             Path => 'test.doc');
$msg->send;
print "done";