use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';

my $outlook = new Win32::OLE('Outlook.Application') or die "Could not open Outlook Application!\n";

my $msg = $outlook -> CreateItem(0);
	unless ($msg){
		die "Outlook is not running, cannot send mail.\n";
	}

$msg -> {'To'} 		= 'addreass@domain.com';
$msg -> {'Subject'} 	= 'Important Subject Matter';
$msg -> {'BodyFormat'} = 'olFormatHTML';
$msg -> {'HTMLBody'} = 'Some text I want to display <a href=http://google.com>With Links in HTML</a> embedded in that text\n'

$msg -> Send();

##</code><code>##

$msg -> Body('http://gooogle.com')