#!perl -w
use strict;
use Win32::OLE;

my $message = '';

while (<DATA>) { $message .= $_; }

my $mail = new Win32::OLE('Outlook.Application');
my $item = $mail->CreateItem(0);

$item->{'To'}      = 'email@address.here';
$item->{'Subject'} = 'whatever you want';
$item->{'Body'}    = $message;

if ( $item->Send() ) { print "email sent.\n" }
else                 { print "email not sent!\n" }

__DATA__
blah
blah
blah