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);
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print