#my $mail = new Win32::OLE('Outlook.Application');
#$mail->{'Visible'} = 1;
#my $item = $mail->CreateItem(0);
#$item->{'Subject'} = "This is a test";
#$item->{'To'} = "david.booth\@easynet.co.uk";
#$item->{'Body'} = "Here is the meat of the message";
#$item->Send();
#$mail->Quit();