Can't call method "Send" on unblessed reference at C:\testmail.pl line 14.

The script is:

#!/usr/local/bin/perl
use Win32::OLE;
# Send report by mail
$outlook = new Win32::OLE('Outlook.Application');
$outlook->{Visible}=1;
$mailitem = $outlook->CreateItem(olMailItem);
$mailitem->{To} = "hrobertson\@deltagen.com";
$mailitem->{Subject} = "Copy report for $d";

open(INFILE,"copylog.txt");
$mailitem->{Body} .= <INFILE>;
close(INFILE);

$mailitem->Send();

----

What do I need to do differently??