my $NewContact = $Contacts->Items->find("[Last Name] = $name");
   	print "full name:   $NewContact->{FullName}\n";
  	print "First name:  $NewContact->{FirstName}\n";
  	print "Last name: $NewContact->{LastName}\n";
  	print "Phone: 	$NewContact->{BusinessTelephoneNumber}\n";
   	print "Title: $NewContact->{CompanyName}\n";
	$NewContact->Delete();