$outlook = Win32::OLE->new('Outlook.Application');