use Win32::OLE;

$mail = new Win32::OLE('Outlook.Application');
$mail->{'Visible'} = 1;
$item = $mail->CreateItem(0);
$item->{'Subject'} = "This is a test";
$item->{'To'} = "name\@comp.com";
$item->{'Body'} = "Here is the meat of the message";
$item->{'Attachments'} = $attachments; ## I'd assume this would work but it doesnt...

$item->Send();
#$mail->Quit();