my $cal = new Win32::OLE('Outlook.Application');
       $cal->{'Visible'} = 1;
       my $item = $cal->CreateItem(0);
       $item->{'Subject'} = "perl test";
       $item->{'Location'} = "Test Location";
       $item->{'Start'} = "04/30/2002 12:00";
       $item->{'End'} = "04/30/2002 12:30";
       my $selectfolder = $namespace->Folders($Folder)->Folders($subfolder)->Items()->Add($item) or " **** can't add item";