#!/usr/bin/perl
use strict;
use warnings;

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

my $outlook = new Mail::Outlook('Inbox');

my $file = "D:/TEMP/Text1.txt";

my $message = $outlook->create();
$message->To('me@mycompany.com');
$message->Subject('Test');
$message->Body('Test Message');
$message->Attach($file);
$message->send;