--- trunk/soap-client.pl	2005/05/17 11:09:08	33
+++ trunk/soap-client.pl	2005/06/22 12:31:45	62
@@ -38,4 +38,22 @@
 
 print "added message ID $message_id\n";
 
+my $result = $soap->ListMembers({
+		list => 'My list',
+});
+
+die "can't list members ".$result->faultcode.": ".$result->faultstrig if ($result->fault);
+
+print "members:\n";
+foreach my $m (@{$result->result}) {
+	print "\t",$m->{'email'},"\n";
+}
+
+$soap->DeleteMemberFromList({
+	list => 'My list',
+	email => 'dpavlin@rot13.org',
+})->result || die "can't delete member";
+
+print "deleted member\n";
+
 1;