$Contacts =  $NameSpace->Folders("Personal Folders")->Folders("Contacts")->{Items};
    my $Cacharbes = $Contacts->Find("[LastName]=Charbeneau");
    my $cnt = 0;
    while (1) {
      if ($Cacharbes->{FirstName} eq "Chuckles"){
          $Cacharbes->Delete();
      }
      $Cacharbes = $Contacts->FindNext() || last;     
   }