use warnings;
use strict;
use Win32::OLE;
	
my $outlook = new Win32::OLE 'Outlook.Application' ;
$outlook or die "Could not get OLE object for outlook";
my $mailitem		= $outlook->CreateItem(0);
$mailitem->{'Subject'}	= 'A test';
$mailitem->{'Body'}	= 'Omnes homines, qui sese praestari volunt, ...';
$mailitem->{'To'}	= 'mailaddress';	
$mailitem->Send();
$mailitem->Quit;
$outlook->Quit;