use Win32::OLE;
use Win32::OLE qw(in with);
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Outlook';
@attachments = ("output.pdf");



my $Outlook = Win32::OLE->GetActiveObject
                           ('Outlook.Application') ||
                Win32::OLE->new('Outlook.Application');
my $Outlook = new Win32::OLE('Outlook.Application');

# Create Mail Item
my $item = $Outlook->CreateItem(0);  # 0 = mail item.


$attach = $item->{'Attachments'};
$attach->add(@attachments);

$item->display();