Perhaps this will help - I found it gathering dust on my hard drive:
use strict;
use Win32::OLE;
use Win32::OLE::Const;
my $text = "Test message text";
my $m_ses = Win32::OLE->new('MSMAPI.MAPISession');
my $m_msgs = Win32::OLE->new('MSMAPI.MAPIMessages');
$m_ses->SignOn;
$m_msgs->{SessionID} = $m_ses->{SessionID};
$m_msgs->Compose;
$m_msgs->{MsgSubject} = "blargh";
$m_msgs->{MsgNoteText} = $text;
$m_msgs->{AttachmentName} = 'bolbus flowerius';
$m_msgs->{AttachmentPathName} = 'C:\boot.ini';
$m_msgs->Send(1);
MeowChow
s aamecha.s a..a\u$&owag.print |