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

# Connection to Outlook Calendar	
my $outlook = Win32::OLE->new('Outlook.Application') or die
"Error!\n";
my $namespace = $outlook->GetNamespace("MAPI");
my $app = $namespace->CreateItem(olAppointmentItem);
my $CalendarFolderItems = $app->Items;