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

my $msg = MIME::Lite->new(
    From    => 'mail',
    To      => 'mail',
    Subject => 'Perl Test',
    Type    => 'multipart/signed',
);

$msg->attach(
    Type    => 'application/msword',
    Path    => 'test.doc',
    Filename    => 'FORM50.doc',
    Disposition => 'attachment',
);

print $msg->as_string . "\n";