#!/usr/local/bin/perl
use strict;
use Win32::OLE::Const;
my %olConst = %{ Win32::OLE::Const->Load( "Microsoft Outlook" ) };

# Send report by mail
my $outlook = new Win32::OLE('Outlook.Application');
my $mailitem = $outlook->CreateItem($olConst{olMailItem}) or die "could not create item.";
$mailitem->{To} = "spam@spam.com";
$mailitem->{Subject} = "Copy report";
$mailitem->{Body} .= "abc";
$mailitem->Send();